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Aerojet 
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The result of unique co-operation between three ace software developers 
and the Biggies film production company, Biggies -The Untold Story will 
knock you right out of the air! Ifs a multi-part arcade strategy game in 
which each part must be completed to reach your final goal. 

In the air, on the rooftops, on the ground, or in the trenches 

YOU CAN BE A HERO! 

Coming In May Commodore 64 £9.95 tape, £12.95 disk 

Spectrum 48 K £9,95 tape 



Coming In June Amstrad CPC 
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’n f .~a text-teaser 
world where 
no ’modo has lept before! 
Go on... take a swing at it! 



AMSTRAD 

IUM48K COMMODORE 64 

Ocean Software is available from selected branches of: 

WHSMII II r >n.T.I.'.II.UI!l WOOIWORTH 1 ASK VS Rumbelows 

aena Spectrum Shops and all good software dealers.Trade enquiries welcome. 



Ocean Software Limited 

Ocean House ■ 6 Central Street Manchester M2 5NS • Telephone 061 832 6633 • Telex 669977 Oceans G 
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MATA HfllRV'.' 
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JUST PR5SEP? I ^°. 06 ^. 



ifexs 

.-V^S£CTO«.S 



7DTO we hme.™ 
CweTOiS wW! I 
hate drwing* east 
wmt PLACE.! rl 



^£WH6. 



PACT OP UftTill 
ClMR-A^P ^hJ 
IT CoULP UAPPQJj 
TO of OS! r{ 



— ‘THEV NOW OWN N 
■HE DISTRIBUTORS WHo ‘-v. 
MPH-E And SUPPt-H THIS CHART! 
i omix w AH To SUCCEED Id ^ 
".iffSS&tg CoMPAHT y \ 



All these top ten 
titles ARE FROM THE 
same software house 

I - REFLECTION SOFTWARE' 



THE MIETIN6- 






^NAV'eY-WAKET! V±-> 
BREKRY TIME ! SHOUTING ' 
IN OUR SLEEP AGAiM.jT' 
vWEBENT wE! jr-rri]/ 



sfirUEo THEIR WAV 
fos 16 eliminate, 
THE opposition 
AAA/?SH HAOHHA&H; 



ALL of U* Too' 
MAPA/ESS .MAAWeSS .AIAPNESJ.. 



Please send me the item (si ticked below. I enclose a CHEQUE/ PO 
payable to- AUTOMATA Ltd. PO Box 78. SOUTHSEA. Hants. POA SSL. 
all prices include VAT & Carriage within U. K. OVERSEAS ADD £1. 



lO PACK vol.l £7 lO PACK vol.2 £7 _ 

SPECIAL OFFER! Buy all THREE " lO PACKS" 
"lO PACK" A8K SPECTRUM tapes contain lO 
value For money, including— M/C Arcade 
Adventures, Strategy Games, & lots more 



PACK vo 1.3 £7 

s For ONLY £15 

rams oFFering real 
, Graphic and Text 
For all the Family 



GO TO JAIL ASK Spectrum. 
SPECTRUM SPECIAL OFFER! 

*Iind _ stamped “addressed 
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Replay the game between the 
Chicago Bears and New England 
Patriots in Ocean’s American 
Football simulation 



may 

drops beck to throw a pass the 
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OriglnalHy 



STAB BATING 



Could you stop the Refrigerator ? 





•bb'6-bo^md Tq be hhn- 



"The most compulsive game 



AMSTRAD 

DISC TAPE 

£13.95 £8.95 



CBM 64/128 SPECTRUM 48K 

£9.95 £795 

MSX 
£8.95 





TflU CETl 



PLAYERS GUIDE 
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REVIEWS 



immediately sucked Into the 
vacuum. A game given this 
description is totally void of any 
interesting features. 

' small dying star that is 

rom it's best. Any similar 

I games may lack lasting appeal. 
Like your sun, games given this 
description will be bright and in- 
teresting and will support intelli- 

K S t life. 

;hter than a bright star such a 
same will have an outstanding 
I j. I feature or game system. 

_ Immediately 

id buy it. Novas are 

bright and spectacular and ca 
° leighbouring j 



El IE, 



EE" 



>u see a game with a 
g you should 

ctaoulai .. 
jouring planets, 
ultimate in stei: 



H 



for this incredible e: 
a star can effect enure 
. If a supernova game 
runs on a computer that you don’t 
have then ^buy the machine and 
—.hough at first nebulae look 
bright and interesting they are in 
fact constructed totally from hot 
gasses. Beware of any game carry- 
ing this symbol as you will pro- 
'•‘bly find It disappointing. 



bably f 

Planet ratings 

Planet ratings are marks 
it of five for specific areas 
a game. These include machines 
Originality, graphics, use " 
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COMPETITION 



I grK .t.S l " * 

SO copies of Knight Games 
to be won in our easy to 
enter competition. 




Knight Games, the medieval 
sports game from English 
Software, is to be released 
soon for the C64 and Am- 
strad oomputers. Here is 
your chance to get your copy 
by entering our competition. 

The game gives you the 
chance to become a Knight 
and beat the living daylights 
out your opponents at 8 
events including sword, axe, 

fighting as well as demon- 
strating your skill at 
archery and crossbow 
shooting. 

How to Enter. 

All you have to do to enter 
is design a Knight Games 

sent the atmosphere of the 



3TS I 

Once you have decided 
your basic design draw it in 
on the blank shield by the 
entry form and send them 



Computer Gamer (Knight) 

No. 1 Golden Square, 
London W1R 3AB. 

All entries must reach us 
by May 31st and please 
remember to indicate which 
version of the game you 
would like if you’re lucky 



As an added bonus the 
best shield design will be 
made up as a coat of arms 
and presented to the winner. 
So start designing now! 




If I win I would like a C64/Amstrad version of Knight 
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DON’T MISS OUT! I 

Now that you have read this issue of 
Computer Gamer and you know how 
Interesting and invaluable it is, wouldn't it be 
a crime to run the risk of missing a single 
thrilling issue? 

Well, you don't have to! 

If you order a subscription to Computer Gamer 
you will be assured of receiving every issue 
through your letter box each month without 
the worry involved in rushing to your local 
newsagent before all your friends have nabb- 
ed the available copies. 

Simply fill in the coupon and send it in with 
your remittance and sit back and wait for 
thrills and excitement to come directly to youl 



Subscription Order Form 
Cut out and send to: 
Computer Gamer 
Infonet Ltd., 

Times House, 

179 The Marlowes, ^ 
Hemel Hempstead, 

Herts. HF1 IBB. 





£18.60 for 12 issues UK □ 

£21.50 for 12 issues overseas surface postD 
£28.00 for 12 issues USA surface post □ 
£57.00 for 12 issues airmail □ 

"lam enclosing my (delete as necessry) 
cheque /Postal Order / International Money 

Order for £ 

(made payable to ASF Ltd) __ 

or _ 

Debit my Access □ Barclaycard □ 

i i i i i i l l l l ll l l I ja. 



NAME (Mr/Mrs/Miss)., 



Please commence my subscription with the 
very next issue. 

Subscription Rates 
(tick □ as appropriate) 





I AM tUORRm MISTER SHOVEL-TAPE UJURRm 
M9 MASTER SEND ME TO TELL 90U 

"LP>y OFF THE CASEs w' ~ 



DOES THE SECRET OF THE MISSING 

m&STEKTRON/C TAPES 

WAIT FOR SAm SHOVEL . . . 



RIGHT, mAGGOr PUSS, BUT FIRST 
TELL ME WHO IS yoUR BOSS AND 
WHERE ARE THE mASTEFTRON 1C 
TAPES? ^ , 



[ mfiSTERTRON/C 

i^ONLU DP BEST/ 



E iouate 

DL/SANDS OF \ 
;/ M/HAT W/ITH 
iR? you Germ 
mOUSSHOLE FOR. A 



' mOUTH AMD NO TEETH/ \ 



now I take you TO My 

/TASTER -HE TELL iXXI UJHy 
HE SEND ME AGAINST 
mASTERTRONIC. THEN HE 
TEU. UOUH0UJ SOU GONNA 
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BRITAIN'S MOST ADVANCED COMPUTER MODERATED PLAY BY MAIL GAME. ..AN EXCITING NEW GAME 




aggr i 

r na ... '• / 



Capitol features - 

• A strategic space warfare game, completely computer 

moderated. . • , * » . 

•Approximately 35 players per game * *. 

• Players design their own race's characteristics and • • - 

description. ' ■ i 

• construct bases on your planets for protection and * 



> Design your own starships and build them at your star j 

• Expand your empire and conquer other races. 

• An 'advanced stage' of the game Introduces new traHRK* 

technologies of stargates and improved ship movement ■ / 

capabilities .* - • *'■•/ 

•Capitol's simplified order formats are easy to 

. remember. No coding your orders onto computer cards^-^ * • 

''Xl ’ or other gimmicks. * » - ' ^ — 

— • Capitol has an easy to understand rulebook. complete 
| , with numerous examples. 

• Capitol was subjected to the largest playtest of ANY — ' - 
,i . y / . commercial PBM game. Over 100 players played over . - 

//: . • ' I500turnsofcapltolprlortorelease. . • * 

•RunsonanlBMPC,uslng5l2K. • •-* 

^ "Capitol Is fast becoming the standard against which 
other space warfare games are compared " 

• wlth each ruleb ° ol< YOU receive a set of overlays to us 
. ■" in mapping the game and moving ships 
. - " (Mapping Capitol is extremely Interesting, using the 

• no due dates. Capitol allows you four turns per moi 
• Most other computer moderated games have the u 

one turn every two weeks. , 



KJC Games has been running Play By Mail games for * . 
about five years now and our reputation for giving good, 
exciting games and a first class service Is second to none 
. our team of professional Gamesmasters will usually reply 



s In North America should write to Adventures By 
i Box 436, Cohoes. NY12047, for information on ■ 



1C. 



GAMES 







This month sees the start of a new look 
PBM Update. There will still he the 
usual news and special offers hut we 
will also he having an in depth look at 
some individual games and will try to 
cover all aspects of this interesting 
hohhy. another new feature will he the 
Gamer PBM playtest team; each month 
we will he looking for readers to play 
the games free and to report hack 
later. 
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c month, I d 



games. There are a lot of figures 
p^l^hare^read^arUoS 



Dungeon 

Dressing 



by Gordon Hamlett 
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ADVENTURE 





You could win £350 worth of 
computer equipment and have your 
game published in our great adventure 
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D VENTURE COMPETITION 








wo of Normandy. Choose 
s&raragy carafuUy. for 



ADVEXTERE 

R'E'N'E'IM 
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game. With this! 



PLAMET RATINGS 



oo 
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The windows at the bottom of 



information box displays details 



re determined at the start 
Same but you can juggle 






EffifS 



harder by the presence i 



and exit directions. Your status important in' iustTbaut~mei^ “ " ‘'= a “ naa werewolves to. you an me. Most of 

is assessed on three values - decision that -waT SKT „ tllese S'™ will need to Ml' 

, ■*“*» "™ «a lust a.t botm* th. it, “ dSnfTSaTSfUS KSKSSKX.™ 

^3 Heavy on 
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tfiefrU ujicfii 

raiMPiirsB Rtmtn wav i qbr 







He^vvj on the M^ick 

i . \ l j i . *r o* *°- - i 



SPECTRUM 48/128K 

AMSTRAD 

CBM 64/128 £ 9 - 



JTEST MlDLANDS)bYf 



ELEPHONEfi 




AfTMT Rotten 

"JmPvtSR. e, AJ« 
6 ”or « ,£ 

ssT-**' 



2,6 S«re«jl CODE ' 7 
^ M AA/D" ,| Sit/WP* 

r-O,^ • 1 <j" !t j 









D«E<se 

4-'-< f - 



RELICTS 



fo« O CorJKEf 

[SHOW, SoND, 



-MO 1 

nrs nem- 

FFTEK 



' DISTRICT NURfE 
> SflN«wn 5KW5' 
'ero/ MV EftO/ I 

.6P 'Foiled! tin FoLED' I 



WHAT'S THAT 

l reverse w 



SEE THKOOejHr 



MeftMWH' 



SAP wit 

qwiRK 1 






Bones — look ovT : 
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Enter (tie world of Avenger, a Nln]a warrior Experience die stunning effects of triple 

of unparalleled skills ana oeaoiv powers, as scrolling action as you master the techniques 
he Battles the forces of evil in defence of His of Hand to Hand combat, Pole Fighting and 

faith and protecdon of tne weak, the skills of the Samuri Sword. 

Be calm and stay sllentas the outstanding And when you believe you've succeeded In 

animation and unrivalled combat routines overcoming all the odds, the next In this 

take you to levels of action you'd never have thrilling series of adventures will beckon you 

thought possible, forward to a further challenge of death. 

MSX64K Spectrum48K Amstrad cbm 64/128 

Gremlin Graphics Software Limited, Alpha House, 10 Carver Street, Sheffield SI 4fS. Ter, 0742-753423 



iMiila 











i Ju 




if 


j 





Psi-S Trading 



Co is a strategy 
game that will 
keep you on 
the edge of 
your seat. Eric 
Doyle boldly 
goes where no 
man’s gone 
before. 





P* IPf*^ 



, , DC/IGnCD BV 
graphic/ miKf lORcnzcn mu/ic 

mimi DOGGCTT CD DOGfl/ 

Copyright 1983 Accolade, Inc. 
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COMPUTER GAMER MAS - 1986 




Bi iaiiia iaiacoLLecTinN 




If you have an Amstrad computer 
what games MUST you have? 

Mike Roberts looks at some of the 
best that we’ve seen. 



feSih 1 sw ”"” 




i 
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WINTER EVEl 



06/ PLUS 4 



f/ thrilling events - 
’ Biathlon, Bobsled, Ski- 
Jump, Slalom, Down 
Hill and Speed Skating. 



t. The events 
ning graphics 



seen on Cl 6/PLUS 4 provide 
drop as the chase for med 
TURBO LOAD ensures that y 
chance to cool down betwe 
A QUALITY GAME 
[FOR C16 AND PLUS 4 OWNERS 



e: 0322 92513/lf 
' Cheque, P.Q.VIS 




ioa-5 asssscsg- SSSS 
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RENEWS 
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% Black Xnight % 
Compute rslid^. 



HARDWARE 



’ 1571 COMMODORE DRIVE £255.00 ' 





. IY PURCHASE OVER £6 GAINS AN ENTRY INTO OUR 
SUMMER COMPETITION FIRST PRIZE £350. JOIN OUR 
COMPUTER CLUB, £3 PER YEAR OR FREE MEMBERSHIP 
WITH PURCHASE OF £15 OR MORE. 

P.O. BOX 132 CHISLEHURST, KENT BR7 6LJ 
01-467-7451 Answerphone service out of hours. 





Official mascot FIFA World Cup 1986 







THE GAME 




ATARI 

400/800/XL/XE— 48K 
£8.95 Cassette 
£12.95 Disk 



CBM 64/128 
£8.95 Cassette 
£12.95 Disk 



AM5TRAD 
464/664/6128 
£8.95 Cassette 
£14.95 AM5TRAD 3" Disk 




"The best road 
racing game I 
have ever seen. 



Superb new driving 
game... throw away 
Pole Position and all 
its clones— this is 
the one you want" 



"One of the most 
addictive, 
high speed, 
adrenalin raising 
road games 
I 've yet seen" 



ELEKTRAGLIDE — COMING 500M FOR SPECTRUM 48K/128K 



ENGLISH SOFTWARE. 

123225237 



1 Rorth Parade, Parsonage Gardens, Manchester M60 1BK. 
Tel: 061-835 1358 
Distributed by U.5. Gold 021-359 8881 











by Eugene Morris 



Machine code scrolling 
and sound effects malm 
this an extremely fast 
game for the ZX Spectrum. 

Can you defend the city 
against the alien hordes? 







HERi Vi 'M MsL m a r,t. r 



50 

51 
60 

70 
J36: 

71 

90 

91 

92 

93 
120 
130 



GO SUB 300 
BO SUB 2000 
POKE 2365B.B 
LET KILL=0 
GO SUB 600 
LET X=10l LET 
LET X2“92 
LET LE=1 
IF LE*=1 THEN 
IF LE-2 THEN 
IF LE*3 THEN 
IF LE=4 THEN 
GO SUB BOO 
PRINT AT X,Y; 



Y=16t LET Y2= 



LET E*«”K" 
LET E*»”l_" 
LET E*“” X“ 
LET E*-" J" 

INK 7; BRIGHT 



140 PRINT AT A,B; INK INT (RND* 
6+1) ;E* 

141 LET Xl«Xs LET Y1=Y 

150 IF INKEY*«="Q" AND X>3 THEN 
LET X=X-1 : LET X2=X2+B 
160 IF INKEY*="A” AND X<15 THEN 
LET X=X+1: LET X2=X2-8 
170 IF INKEY<="0" AND Y>15 THEN 
LET Y=Y-1 i LET Y2=Y2-B 
180 IF INKEY*="P" AND Y<30 THEN 
LET Y=Y+1: LET Y2*Y2+8 
190 IF X=X1 AND Y=Y1 THEN GO T 
0 201 

200 PRINT AT XI, Yl;” " 

201 IF INKEY*< >"M" THEN BO TO 
230 

210 PLOT Y2, X2i DRAW (255-Y2) ,0 
: OVER 1: BEEP .001,26: PLOT Y2, 
X2c DRAW (255-Y2 

> .0 

211 OVER O 

220 IF X=A AND Y<B THEN BO TO 
900 

230 LET MO=INT <RND*3) 

240 IF M0=1 OR M0=2 THEN LET B 
=B-2: PRINT AT A,B+2;” " 

250 IF M0=0 THEN LET A=A+ls PR 
INT AT A-l ,B; “ “ 



260 IF B<2 THEN LET B=31 

261 IF A=16 THEN LET HIT=HIT+1 
« PRINT AT 0,20; HIT j AT 17 ,B;"mm 
" | AT 18, B; "HH": R 

ANDOMIZE USR 50000: RANDOMIZE US 
R 50000: BORDER 0: PRINT AT 17, B 
5 INK 3; BRIGHT 

1;" " ; AT 18 GO SUB 800 

262 IF HIT=5 THEN LET HIT=0: L 
ET LV=LV-1: PRINT AT 0,20;HIT;AT 

0,31; LV 

263 IF LV=0 THEN GO TO 1000 

264 RANDOMIZE USR 63000 

265 RANDOMIZE USR 63100 

266 GO TO 130 

300 RESTORE 400 

301 FOR q=l TO 12 

310 READ a*: FOR p-0 TO 7: READ 
a: POKE USR a»+p,a: NEXT p 
320 NEXT q 

400 DATA ”h", 255, 255, 20 1,20 1,2 

55.201 .201.255 

410 DATA "l." ,0,0,0,24,60,126,2 

55.255 

420 DATA ",56,124,238,247,22 
3,94,120,24 

430 DATA "i ",24,24,24,24,56,92 
,166,166 

440 DATA "t:", 255, 255, 0,0, 0,0,0 
, 124 

450 DATA "P" ,124,0,0,0,0,0,255 
,255 

460 DATA ”.",240,216,110,55,11 
0,216,240,0 

470 DATA "p" ,36,8,82,32,132,18 
,40,4 
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480 DATA " X" ,8,40,24,92.62, 106 
,84,56 

490 DATA " j" ,60,102,255,153,25 
5,102,60,0 

500 DATA “ r ",1,3,3,61, 65 , 255 , 6 
3,7 

510 DATA "l ",126,16,8,255,255, 
8,16,126 

511 RESTORE 519 

512 FOR P-50000 TO 50016s READ 
As POKE P,As NEXT P 

519 DATA 33,0,10,43,126,211,254 
,6,7,5,32,-3,175,132, 200 ,24,-14 

520 RESTORE 540 

530 FOR P-63000 TO 63025s READ 
As POKE P , As NEXT P 

540 DATA 33,32,80,14,8,86,6,31, 

35.126.43.119.35.16, -7,114,6,31 , 

43.16, -3,36,13,3 

2 ,- 20,201 

541 RESTORE 550 

544 FOR P=63100 TO 63125s READ 
As POKE P , As NEXT P 
550 DATA 33,64,80,14,8,86,6,31, 

35.126.43.119.35.16, -7,114,6,31, 

43.16, -3,36,13,3 

2j— 20,201 

560 LET HI-0 
590 RETURN 

600 PAPER Os INK 7s BORDER Os C 
LS 

610 LET SC-Os LET HIT=Os LET LV 
-3 

620 PRINT AT 0,0; "SCORE ";SC;AT 
0,15; "HITS " ; HIT ; AT 0,30;" :";L 

630 PLOT 0,160s DRAW 255,0 
640 PLOT 0,164s DRAW 255,0 
650 PRINT AT 21,1; PAPER 7; INK 
2; BRIGHT 1;"CITY DEFENCES BY E 
UBENE MORRIS" 

660 PRINT AT 20,0; INK 4j"FPFF 




670 PRINT AT 19,0; INK 4;"&eee 

fcCEEEEEE EEEEEEEEEEEEEEtE 
EEEE" 

T 6 f°.. PRINT AT 10 V 0 ' INK 3 » BRIGH 



6 ° 



o 



1 



810 LET A-INT <RND*12+3) 

820 LET B=31 
830 RETURN 

900 PRINT AT A,B;"H M * RANDOMIZ 
E USR 50000s PRINT AT A,B; " "s B 
ORDER 0 

901 LET SC=SC+5s PRINT AT 0,6;S 
C 

910 LET KILL-KILL+1 

911 IF LE=4 AND KILL-8 THEN LE 
T LE-ls LET KILL=Os GO TO 80 

920 IF KILL=8 THEN LET KILL-0* 
LET LE-LE+1* GO TO 80 
940 GO SUB 800 
950 GO TO 230 

1000 FOR P=1 TO 10s PRINT AT X,Y 
5 ”H“s RANDOMIZE USR 50000* PR IN 
T AT X , Y i " ”* BOR 

DER Os NEXT P 

1001 IF SC >HI THEN LET HI=SC 
1010 PRINT AT 5,2; FLASH 1;" 

m -“* .-v «—■ i n 

1020 PRINT AT 6,2; FLASH 1;" fl „„ 
•J B B ® N ■ I ■ k. S(U»‘" 

1030 PRINT AT 7,2; FLASH 1;" k,* 

■ ■ * « » ■— V.» US II 



1031 PRINT AT 10,7; "HIGH SCORE-" 
J HI 

1040 PRINT AT 12,5; ”P R E S S A 
NY KEY" 

1050 IF INKEY*-"" THEN GO TO 10 
50 

2000 PAPER 0* INK 7s BORDER Os C 
LS 

2010 PRINT AT 4,0; INK 4; "P R E 
S E N T I N G . . . " 

2020 PRINT AT 7,6; BRIGHT 1;"C I 
TY DEFENCE" 

2030 PRINT AT 10,16; INK 3; "BY E 
UGENE MORRIS" 

2040 PRINT AT 17,10; FLASH 1;"PR 
ESS ANY KEY" 

2050 IF INKEY*-"" THEN GO TO 20 
50 

2060 CLS 

2070 PRINT AT 1,10; BRIGHT 1;"CI 
TY DEFENCE" 

2080 PRINT AT 3,0; "Q. ...UP 
A DOWN" 

2090 PRINT AT 5,4; "0 LEFT 

P RIGHT" 

2100 PRINT AT 7,12; "M FIRE" 

2110 PRINT AT 12,0; "YOUR CITY IS 
UNDER ATTACK FROM"! PRINT "A GR 
OUP OF EVIL ALIE 

NS. " s PRINT "THEY WILL SEND SUIC 




co 



IDE SHIP8 AT": PRINT "YOUR CITY 

WITH THE AIM OF 

DEST-" : PRINT "ROYING IT." 

2111 PRINT "YOU AND YOUR INVINCI 
BLE CRAFT": PRINT "MUST SHOOT TH 
E ALIENS BEFORE" 

: PRINT "THEY HIT YOUR CITY. YOU 
R CITY": PRINT "CAN ONLY SURVIVE 
15 HITS! "i PRIN 



\SPECTMUM 


1 t 


5. 

ffiffut a 

tffitti aMrebeH n 



2130 CLS 
2140 PRINT AT 
TY DEFENCE" 
2130 PRINT AT 
2160 PRINT AT 
OUR CRAFT" 
2170 PRINT AT 
. . .H BOMB" 

2 ISO PRINT AT 

SAUCER" 

2190 PRINT AT 
ARGON SHIP" 
2200 PRINT AT 

ZAPPO" 

2210 PRINT AT 



l,10j BRIGHT 1|"CI 

4, 13 3 "ALIENS" 

6,65 "G Y 



8,65 " X. . 

10,65 



14,65" 

17,105 



2220 IF INKEY*-:" " THEN GO TO 22 
20 

2230 GO TO 50 




■A, A efiTttti AAAWflfflJIfl BP 







1HER4PY 




20 J , 0 « P0KE53280 , 0 1 60SUB 1 230 1 P0KE1 98 , 0 
105'6*0lQD*0 

110 PR1NTCHRK 147) ['HELLO. I’ll DOCTOR RO 
H.'lPRINT'NHAT’S YOUR NAHE ?* 

115 G0SU81 1 60t A8-P1* i PRINT 
120 PRINT'SHORTLY, '[Al| ','lPRINT'NHAT I 
S YOUR PROBLEH 7'iSOSUBlUO 
125 BI*P1I 

130 PRINTj PRINTB$| PRINTrPRINT’TEL 
L RE S0RETHIN6 MORE ABOUT THIS ’ 

140 GOSUB 1 1 60t 60SUB900 

150 PRINTiPRINT'I SEE , I SEE..'|B«iPRIN 

T'lT'A BIS PROBLER FOR YOU,' 

160 60SUB116Q:IFP1I S 'N0"THENPR1NT'PR0BAB 
LY I DON’T UNDERSTAND KERRY NELL...’ 

170 PRINTiPRINT'CAN YOU BE RORE PRECISE 
? NNY 'iPRINTBli 

175 PRINT' IS A BIS PROBLER FOR YOU ?' 
180 80SUB 1 1 60 i S0SUB900 
100 PRINTlPRINT'HON DO YOU FEEL, W?' 
iSOSUBl 160: C*«P1* 

200 PRINTCHRK147) 

205 PRINT'NHAT YOU ARE TELUS RE,'|A«[ ', 
' i PRINT' IS THAT YOUR PROBLER NH1TH ’;B» 
210 PRINT’HAKES YOU FEEL '|CI|Vl60SU8l 
160 

220 PRINTiPRINT’CAN YOU BE RORE PRECISE 
ABOUT YOUR FEELI N6S?‘ i 60SUB1 160: 60SU8900 
230 PRINT: PRINT'HAVE YOU HAD THE SANE PR 
OBLER IN THE PAST ?(Y OR N)':60SUB1160 
240 1FP1*<>'N'THEN260 
250 PRINT' I SEE. SO THIS HER SITUATION NU 




ST BE DIFFICULT FOR YOU .' 

255 60T0 320 

260 PR1NT:PRINT’0!D YOU FEEL '|Clj' ALSO 
IN THE PAST ?' 

270 GOSUB 1 1 60 : PR I NT " TELL HE S0RETHIN6 HO 
RE .' 

280 G0SUB1 160t G0SUB900 

290 PRINTCHR* ( 147) 'I THINK NE ARE SETTIN 

S NEAR YOUR PROBLEH , ' 

300 PRINT'DO YOU THINK THERE IS A LINK ? 
■|60SUB1160:PRINT:PRINT"C0NTINUE.. 

310 G0SUB1 160: PRINT: PRINT "THIS SEERS TO 
BE A BIS PROBLER '[ 

315 PRINT* FOR Y0U':SOSUB1160 

320 PRINT:PRINT“HAVE YOU SORE IDEAS TO R 

ESOLVE THIS SITUATION 7" 

330 PRINT'Y OR N '16OSUBII6O 

340 IPPHO*Y"THEN350 

343 PRINT'DO YOU THINK THIS IDEA CAN BE 

•:PRINT"SUCCESSFUL ?':60T0360 

350 PRINTiPRINT'NHI DON’T YOU HAKE A LIS 

T OF THE ' 

355 PRINT’POSSISLES SOLUTIONS, THEN V 

360 GOSUB116O:SOSUB90O 

370 F0RT*lTD500i NEKTTsPRINTCHR* (147) 

380 PRINT'OKAY, NHAT IS THE WORD THAT BE 
ST' 

395 PRINT-DESCRIBES HON YOU FEEL AT THIS 
"iPRINT'HQNENT ?* 

390 60SUBI160iDI*PlllPRINTlPRINTDIi'...? 

400 60SUB 1160: G0SUB900 : PRINT 

410 PRINT'LET’S SEE NHAT NE CAN DO.'fPRI 

NT'NHY DON’T NE TRY THE “1 

430 PRINT-ASSOCIATION OF NORDS’iPRWAN 

D SEE INHERE DOES THIS LEAD US TO.' 

440 PRINT'RHAT DO YOU THINK (Y OR Nl ?'! 
60SUB1 160 

450 IFP1M-Y-THEN490 

460 PRINT:PR1NT'I THINK THAT THIS CAUSES 
YOU SORE PROBLEHS. ' 

470 PRINT'TELL RE NHY. ':S0SUB1160: IFP1*= 
"N'THEN830 

480 PRINTiPRINT’I THINK THE ASSOCIATION 
OF NORDS IS VERY USEFUL.' 

490 PRINTiPRINT'LET’S TRY.' 

500 PRINT 'I’LL SAY A NORD AND YOU RUST T 
ELL HE THE FIRST NORD THAT CORES IN \ 
505 PR I NT 'YOUR RIND.' 

510 REN MIHORDS ASSOCIATION! I I 

520 FDRT=1T03000: NEXTT iPRINTCHR* ( 147) j "D 

06'iPRINTi60SUB1160 



530 PRINT 1 PR INT 'DR INK” : PR I NT : GOSUB 1 1 60 
540 PRINT ! PR INT'HOHE' iPR INT 1 60SUB 1 1 60 : El 

■Pll 

550 PRI NT 1 PRI NTBI: PR INT: GOSUB 1 160: FI*P 1 1 
560 PRINT 1 PRINT'SENTIRENTS' SPRINT : GOSUB! 
160 

570 PR INTs PRINT -AHUSEHENT * 1 PRINT : GOSUB! 1 
60:GI»P1I 

580 PRINTiPRINT'RATHER'lPRINTiGOSUBllGO: 

II*P1I 

590 PRINTiPRINTCI: PRINTiGOSUBl 160: J*=P1* 
600 FORT-lTOlOOOi NEXTT: PRINTCHR* (1471 
610 PRINT- I ’VE NOTICED THAT NHEN I SAID 
HOHE" SPRINT' YOU ANSHERED ’|E*;'." 

620 PRINT’RAYBE THIS REFLECTS IN SORE NA 
YS YOUR' 

625 PRINT' FEELINGS ?* 

630 PRINT' IY OR Nl ' : 60SUB1 160: IFPIBO'Y* 
THEN650 

640 PRINTiPRINT'IN NHICH NAY ?'iG0SUB116 
0:60SUB900 

650 PRINT : PRINT'IS THERE A RELATION NITH 
YOUR PROBLER 'iPRINT'NITH '[Bl 
660 60SUB1160:60SUB900 iPRINT:PRInT"NHEN 
I SAID '[Bl 

665 PRINT-YOU SAID '[FI 

670 PRI NT 'NHAT REANIN6 DO YOU 6IVE TO TH 

IS ?":G0SUB116O:G0SUB900 

680 PRINTlPRINT'ARE YOU TIRED ? DO YOU N 

ANT A KLEENEX ?":GOSUB1160 

690 IF P1I<)“Y'THEN710 

700 PRINT'PLEASE..*:FORT«IT01000:NEXTT 

710 PRI NT : PR I NT ' 1 T ’ S INTERESTING THAT NH 

EN I SAID' 

715 PRINT'ENJOY , YOU SAID “)G» 

720 G0SUB1 160 : G0SUB9O0 : PR I NTCHRI ( 1 471 1 'H 
HHHR...' 

730 PRINTiPRINT'I THINK , 'jA»|V 

735 PRINT' THAT THERE IS A RELATION NITH 

YOUR PROBLER 1 

740 PRINT'NITH '[Bl 

750 60SUB1160l60T0770 

760 RER IIIDREARSIII 

770 PRINT:PRIN7“LET'S TRY NITH DIFFERENT 
APPROACH , “iPRINTAI 

780 PRINT'TELL RE ONE OF YOUR DREARS. ':6 
0SUB1160: G0SUB1040: If 8D*1 THENB40 

790 PRINTlPRINT'HON DO YOU DESCRIBE YOUR 
SENTIHENTS IN YOUR DREAR 7" 

791 60SUB1160 

800 PRINT : PRINT'NAS THE OREAH IN RELATIO 
N NITH '|II 
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810 60SUB1160:FORT*lT01000sNEXTT 
820 REN IIIF1N1SHEDI1I 
BJO PR I NTCHR* ( 1 47 1 j “I THINK HE ARE 601NS 
IN THE RI 6 HT DIRECTION. 'sPRINT 
840 PRINT "HE HAVE TALKED ABOUT YOUR PROB 
IEH MITH“ l PRINTB* 

845 PRINT "AND ABOUT HON IT HAKES YOU FEE 

850 PMNTCIl V 

860 PRiNT'AND DISCUSSED SOHE POSSIBLE SO 
LOTIONS . 11 

870 PRINTsPRINT'BUT THE TINE AT YOUR DIS 
POSITION HAS EXPIRED.' 

875 PRINT'SOODBYE.SEE YOU NEXT NEEK,' 

880 END 

890 REN IIIKEY NQRDSIU 

900 IF B10THENRETURN 

910 F0RJ*IT0LEN(P1I1-10 

920 IFHIOI (P l» t J, 1 OK > ' AHUSENENT ‘THEN930 

925 PRINTiPRINT'NHAT DO YOU THINK ABOUT 

AHUSENENT ?'i6DT0 950 

9J0 NEXTJ 

940 RETURN 

950 GQSUB1160i0"lsPRINT:PRINT'THEY SEEN 
IHPORTANT FEELINSS. * 

960 605UB1 I 6 O 1 RETURN 

1040 REH IIIKEY NORDS IN THE DREAM*** 

1055 F0RJ*lT0LEN(PU)-4 

1060 IFNIDI(P1I,J,4)*'N0T 'THEN1120 

1070 NEXTJ 

1110 RETURN 

1120 PRINTCHR* (1471 “MHY DO YOU THINK SO 



?* 1 G0SUB1 1 60 : &0SUB900 

1130 PRINT" IT CAN BE USEFUL TO DISCUSS T 

HIS ' 

1140 PRINT-LATER ON. NE CAN DISCOVER THA 
T THERE IS * 

1150 PRINT" A RELATION NITH YOUR PROBLEH 
NITH '|8r, ' 1 00*1 ! RETURN 
1160 REH IIIINPUT ROUTINE*!* 

1170 Pl»*" 

1180 6ETP2I! 1FP2I*"THEN1180 
1190 PRINTP2»| 

1200 IF P2I=CHRI(13)THENRETURN 
1210 P1I*P1KP2I 
1220 SOTO! 180 

1230 REH IIIINTRODUCTIONHI 
1240 PRINTCHR! 1 147) | TAB (15)' THERAPY' 

1250 PRINTiPRINT'DO YOU NANT AN INTRODUC 
TION 7 (Y/N)' 

1260 6ETQI 1 IFBK > 'Y 11 ANDQIO ' N ‘THEN 1260 
1270 1F0I*'N'THENRETURN 
12B0 PR1NTCHRII147) ! "WELCOME AT YOUR ANA 
LYSIS HEETING. DOCTOR ROM"; 

1285 PRINT' NILL BE THERE IN A "| 

1290 PRINT'HOHENT. HKILE YOU BAIT , HERE 
ARE SOHE USEFUL ADVICES. ' 

1300 PRINT-ADVICES ABOUT HON TO EXPLOII 
IN THE BEST 

1305 PRINT-POSSIBLE NAY THIS HEETING. '|P 
RINTsPRINT 

1310 PRINT" JUST LIKE HOST OF THE THIN6S 
IN LIFE , ALSO NITH '| 

1320 PRINT'ANALYSIS . THE HORE YOU GIVE 



I'li 1 



, THE HORE YOU SET BACK. YOU HAY FIND' 
1325 PRINT'IT AHUS1N6 
1330 PRINT' TO INSULT THE DOCTOR OR TO L 
AU6H ABOUT HIS GRAMMAR. " 

1335 PRINT' ' 

1340 PRINT'IDONNIANYNAY , ALSO IF IT IS 
ONLY A GAME , IT CAN') 

1350 PRINT' GIVE YOU SOHE INTERESTING AN 
D IHPORTANT IDEAS.' 

1360 PRINT'THIS CAN HAPPEN IF YOU TRY TO 
UTILISE'! 

1370 PRINT' THIS HEETING AS A NAY OF THI 
NKIN6 ABOUT ' 

1380 PRINT'EVERY DAY PROBLEMS. " 

1390 PRI NTiPRINT 1 PRINTCHR* (18) "PRESS ANY 
KEY TO CONTINUE' 

1400 P0KE198,0iNAlT198,l 

1410 PR1NTCHRH 147) 1 PRINT .'PRINT “THE DOCT 

OR HAS ARRIVED.' 

1420 PRINTsPRINTsPRINT'TO ANSHER DOCTOR 
RON’S QUESTIONS YOU ONLY HAVE' 

1430 PRINT'TO NRITE THE ANSNERS AND PRES 
S 'sCHR»!18)|'RETURN";CHRI(146) 

1435 PRINT'NHEN YOU HAVE FINISHED.' 

1440 PRINTiPRINT SPRINT 'ENJOY YOUR ANALYS 
IS MEETING.' 

1450 PRINTSPC (240) jCHRU IB) j 'PRESS ANY K 
EY TO CONTINUE' 

1460 P0KEl9B,0sNAIT198,lsRETURN 
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HORSES 

BY DRREN EBSWORTH 




72 





HORSE : 4- -CRACKERS ODDS: 14-1 

, , o 



5-ACE OF SPADES ODDS ; IS 

,o 



YOUR CRSH; £30 BET ; £20 

LEADER : CRRCKERS 



>y 




PRESS SPACE KEY TO START GAME 





o##o 



oo##o#oo 




Solitaire Is the game where you 



middle. TO do this, you jump over 
one peg with toother Into an 
empty hole, removing the one 
that wes jumped over — ahlt like 
draughts — except that you 
Jump vertically and horizontally 
instead of diagonally, and you 



an play yourself, 
le you're moving 



the task of solving the pi 
who actually "believe compi 
rather then games! ) I admit, the 
computer does not play very 
tntel li n gently, but on average, 

5,030,6466,2931 gore! Serloutdy 



10 you <a 





SOLITAIRE 

by David Muir 

■OiOiOOOii 



10 KEY 128, ‘aode 2s 1 ist *»CHR» 113) 

20 6010 MO 

30 NHILE lNKEYIO":KENDlNHILE INKEYI=" 

:NEND:RETURN 

40 ' «« SET UP »»• 

SO NODE 1 : MINDOHt 1 , 1 ,40,22,25: HIND0NI2 , 3 
0,40, !,1:H1ND0KI3,30, 40, 3, 2O:NIND0H4, 4, 
26,4,19:PAPER»4,3:INK 0,24: IRK 1,2: INK 2 
,4: INK 3,18 

40 DIM all0,10),p*l2),d(3) 

70 DEf FNd(»)=ASC(HIDI(ql,ii*!,l))-47ll6l 
lHJD*(q*,x+l , 1) >"7*) 

BO SYMBOL AFTER 235:REST0RE 430:F0R i =23 
5 TO 255: RE AD d0,di,d2,d3,d4,d5,d6,d7:SY 
HBOL i,d0,dl,d2,d3,d4,d5,d4,d7:NElT 
90 p*(2) »CHR* ( 15) *CHRI (3) *CHR» (255HCHRI 
(254) +CHR* (2S3) +STRIM6$ (3,8) +CHR*( 10) +CH 
R* 4252) tCHR* (251) +CHR* 1 250! »STR I N6* 13,8) 
*CHRt (22) *CHR$ 1 1 ) >CHRI ( 15) *CHRI ( 1 ) *CHRI ( 
249) iCHRI 12481 +CHRN247) tCHRI (22) tCHRI (0 

100 pi 1 11 =CMR* I15)*CHRI12)*CHRI(2461 +CHR 
»<245)+CHR*(244)+STRlNB*(3,B)+CHR*(10)*C 
RRl(235)fCHRI(243l*CHRI(242)*STRIN6ll3,B 
) *CHRI ( 22 1 *CHR» 1 1 ) *CHR» 1 1 5 ) *CHR« 1 3 ) ‘CHRI 
( 238 ) *CHRI 1 237 ) +CHR* ( 236 ) *STRI K6I ( 3 , 8 1 *C 
HR* (11) ICHRK241 )*CHRI (240) *CHRt(239)*CH 
R*(22)lCHR*(0) 

110 p*(0)»" 

120 CLS:CLSI1:CLSI2:CLSI3:CLSI4:F0R 1=0 

TO 10:F0R j»0 TO 10:a (i , j I =0:NEXT:NEXT: F 

OR i*2 TO B:F0R j=4 TO 6i»(i,j)»l:i<j,i) 

“l:NEXTsNEKT:i(5,5)“2 

130 FOR i=2 TO 8:F0R j=2 TO BsLOCflTE J»3 

-l,I+ii2:PRINT US INS *l>* ;p*<a <i ,i M ; iNEX 

T:NE1T:F0R i=2 TO 8:F0R j=3 TO 20 STEP 1 

7 [LOCATE i*3,j:PEN liPRINT CHRK43H) pN 

EXT : FOR j=3 TO 27 STEP 24: LOCATE j,ii2*2 

: PRINT CHR*(47+i) } :NEXT : NEXT 

140 IF fc THEN 380 



150 CLSIlsPRlNTOl," (1) PLAYER SOL 
VE'iPRINTII," (2) COMPUTER TRViPR 
INTI1,' (3) A SOLUTION" : PRINT* 1 , ‘ 
(4) FINISH") 

160 ql=":NHlLE INKEYIO":RENDiNHILE ql 

•"":ql=INKEYI:NEND:!F q*>"4* OR q*<M" T 

HEN 160 ELSE IF qM'2" THEN fc— l:gaa=0: 

«ov=0:B0T0 380:ELSE ON VALIqll 60SU8 190 

,380,580,610 

170 60TD 120 

180 ' PLAYER hi 

190 iOV= 1 : CLSt 1 : PRI NTI 1 , "ENTER LETTERsNU 
HBER FOR START POSITION" sPRINTIl , " 
LETTER:NUMBER FOR END POSIT!ON":PRINTI 
llPRINTIl," ( duple - F4D4 ) ";C 
HR*(24)j * (Q) TO 6U I T ’ ; CHR* ( 24 > ; : 60T0 210 
200 SOUND 3,900,30,7 
210 qi J=":F0R i=l TO 4:q»= , ‘:NHIL£ INKE 
YJO ,, :NENO:NH1LE ql= ,, :ql=lNKEYI:NEND:P 
RINI»2,q»!:qit=qiHql:NE«T:CLS»2:ql=UPPE 
R»(qi»):IF INSTRtq*, "Q’)<>0 THEN RETURN 
220 IF NID*(q* , 1 , 1 ) C’A'OR HIDI(q»,l,l)>" 
6"0R NlDt(qf,3,l)< a A'0R HID*(q*,3 l l) >*8" 
OR NIDI(q»,2,l)<"l"0R NID»(q*,2,ll>"7*OR 
MID*(q*,4 , 1 ) < * 1 "OR MID*(q*,4,l)>"7"THEN 
200 

230 dO'FNd (0) idl-FNd 1 1) :d2-FNd (2) : d3=FNd 
(3) 

240 IF d0=d2 AND ABSIdl-d3)»2 THEN 250 E 
LSE IF dl=d3 AND ABS(d0-d2)>2 THEN 250 E 
LSE 200 

250 IF ifd0,dl)Ol THEN 200 ELSE IF i(d2 
,d3)<>2 THEN 200 ELSE IF i((d0id2)/2, (dl 
♦d3)/2)Ol THEN 200 

260 CLSi 2 : PR INT*3 , UPPER* ( q*> } • "juav=io 

270 i(dO,dll=2:LOCATE d0i3-l,l*dU2:PRIN 
T USIN6 *6';pSI2) | :e(d2,d3)=l: LOCATE d2i 
3-l,l*d3i2:PRINT USING VjpOd) !A((d0*d 
2) /2,(dlid3)/2)=2: LOCATE 3Kd0id2)/2-l,l ‘ 
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mi *i)3: PRINT USIN6 *lr*sp*<2) 

280 IF «ov=32 AND a(5,5)'l THEN CLStliPR 
INTI!,' NELL DONE 1- : SOUND 7, 100,40: SOUN 
D 7,70,40:S0UND 7 , 30 , 40: SOSUB 30: RETURN: 
ELSE IF iOV*32 THEN CLStl : PRINT41 , * HAR 
D LUCK !': SOUND 7 ,30,40: SOUND 7,70,40:S0U 
ND 7, 100,40: SOSUB 30: RETURN 
290 1 «♦* CHECK IF PLAYER STUCK w» 

300 i-ltj-l 

310 i»i+l s IF i=9 THEN 340 
320 j*jtl:IF j*9 THEN j-l:BOTO 310 
330 IF tli.jlOl THEN 320 
340 IF ali, j*2)>2 AND i(i,j+ll*l THEN 21 
0: ELSE IF a(i,j-2)=2 AND a(i,j-l)»l THEN 
2I0:ELSE IF ali*2,j>*2 AND i(itl,j)«l T 
HEN 210:ELSE IF »(i-2,j>«2 AND a(i-l,j)> 

I THEN 210 
350 60TO 320 

340 CLSIhPRlNTIl,* HARD LUCK ! *:SOUND 7 
,30, 40: SOUND 7,7O,40:S0UND 7 , 100,40: 60SU 
8 30: RETURN 

370 ' t»* COMPUTER mi 
380 gaa s gaa-»i : CLS#2:CLSt3:PRINT42, *SANE" 
;gai; :CLStl :PRINT*1 , ■ PRESS 0 TO QUIT’: 
baov'KAX (iov-1 ,baov) :PRINT#l , ■ NY BEST I 
S*;baov; *K0VES*:aov°0;PRlNT«l ,aav; ’ HOVE 
S THIS 6AHE- 

390 aov=ao»*l :L0CATE»1 , 1 ,3:PRINTI1 , iov-1 
I 

400 IF iov*32 AND a(5,5)*l THEN CLSIhPR 
INTII," NELL DONE ! ’ : SOUND 7,I00,40:S0UN 
D 7 ,70,40: SOUND 7,30,40:80SUB 30:G0TO 12 
0 1 ELSE IF tov‘32 THEN CLSIhPRlNTIl,’ H 
ARD LUCK ! ’ : SOUND 7,30,40:S0UND 7,70,40:5 
OUND 7,100,40:80SUB 30:6010 120 
410 y*lNT IRND*7+2) :yhold=y:f y*-I 
420 y»yH+7«(y*8):IF y=yhold THEN IF fy 
THEN <y=0:ELSE CLSIhPRINTIi,’ HARD LUC 
K ! • : SOUND 7, 30,40: SOUND 7,70,40: SOUND 7, 
100,40:FOR :»1 TO !000:NE«T:80T0 120 
430 «*INT (RND*7*2) :xhold=y:fx*-l 
440 x"x*h7Kx=8):IF x'xhold THEN IF h 
THEN fx»0:ELSE 420 

450 IF alx,y)=2 OR alx,y>*0 THEN 440 
440 » a INT (RND»4I :*hold=«:l»=-l 
470 » a »+l+4*l»=3hlF »*xhold THEN IF In 
THEN 4 h=0: ELSE 440 

4B0 fvi=0:0N «*1 SOSUB 530,540,550,540:1 
F NOT fv« THEN 470 

490 IF INKEY 147) 0-1 THEN fc»0:G0T0 120 
500 *lx,y) a 2ialxl,yl)=ha(lx«1l/2,(y*yl 
) 721=2: qa*=CHR* (x*63) ‘CHRHy+47 ) *CHRI(x 1 
♦43) +CHR* (y 1 *47 1 : PR I NTI3 , qa* ; ' ’| 



510 LOCATE x*3-l,|ty»2:PR!NT USING ’fc’jp 
1(2) j: LOCATE x 1*3-1 , l+yl*2:PR!NT USING ■ 
l’!P*(l):LOCATE 3* U+x 1 > 72-1 , 1+y+yl : PRIN 
T USING ■» , jpH2) 

520 GOTO 390 

530 IF al«,y-l)Ol OR a(x,y-2)<>2 THEN R 
ETURN ELSE fv»=-hxl»x:yl*y-2:RETURN 
540 IF alx.ytUOl OR a(x,y*2l<>2 THEN R 
ETURN ELSE f va=- h x l=x : y 1 =y+2: RETURN 
550 IF ilx*l,y)Ol OR alx*2,y)<>2 THEN R 
ETURN ELSE fva»-hxl*x*2:yl-y:RETURN 
540 IF alx-l,y)<>l OR a(x-2,y)<>2 THEN R 
ETURN ELSE fya— h x 1 =x -2x y 1 =y : RETURN 
570 ' hi SOLVE 

580 CLSI1: RESTORE 450:F0R i=l TO 31;READ 
q*: dO*FNd 1 0) 1 d 1 *FNd ( 1 ) : d2»FNd 12 ) 1 d3=FNd 
(3):PRINTI3,q${' * j : LOCATE dOi3-l,imU2 
: PRINT USING 'lr'jp$(2l j :LOCATE d2«3-!,h 
d3*2: PRINT USING *l< , ;p*( 1 ) .-LOCATE 3*<d0* 
d2)/2-l,lmim3:PRINT USING ’4’ip*(2) 

590 FOR j=l TO 1000:NEXT:NEXT:PRINTII,* 
FINISHED ! " : SOUND 7,!00,40:SOUND 7,70,4 
OiSOUND 7 ,30,40: 60SUB 30: RETURN 
400 ' «» END Hi 
410 CLS:END 

420 ' »•* DATA UDGs l SOLUTION hi 
430 DATA 40,43,43,43,43,31,7,1,192,0,0,0 
,0,0,0,0,255,255,0,0,0,0,0,0,3,0,0,0,0,0 
,0,0,0,0,0,0,0,192,240,240,0,0,0,0,255,2 

55.253.255.0. 0.0.0.0.3.13.15.40.252.252, 

252.252.248.224.128.0. 0.255.255.255.255, 

255.255.0. 0.128.240.248.40.12.12 

440 DATA 0,0,255,255,0,0,0,0,0,0,1,15,31 
,40,48,48,0,192,240,240,192,0,0,0,255,25 

5.255.255.255.255.0. 0.0.3.15.15.3.0.0.0, 

248.40.12.12.40.248.224.128.0. 0.0.0.0.0, 

255.255.31.40.48.48.40.31.7.1.0. 0.0.0.0, 
0,128,240,0,0,0,0,0,0,255,255,0,0,0,0,0, 
0,1,15 

650 DATA D2D4,B3D3,D4D2,C1C3,D1D3,D3B3,F 
3D3 , E 1E3 , D3F3 , A3C3.G3E3 , C4C2 , A4C4, C5C3 , C 
2C4 , A5C5 , D5B5 , C7C5 , C4C4 , E7C7 , C7C5 , B5D5 , E 
4E2 , G4E4 , E3E3 , E2E4 , D4D4 ,D4F4 , 65E5 ,E4E4 , F 
4D4 

640 ' *i» TITLES Hi 
470 NODE 0: INK 0,24:INK 1,1: PRINT: PRINT: 
PRINT:PR1NT:PRINT 1 mhhiihhi’iPRI 
NT • 1 ihPRINT ■ i SOLITA 

IRE a’lPRINT • « * • t PR I NT * 



680 GOSUB 30:60T0 50 
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ENV 1,1,0,10,1,0,10,1 
10, 5, -1,3 
ENV 2, 1,0, 5, 1,0, 5, 1,0, 5 
10 REH painter 

20 SYN80L AFTER 216 

21 SYMBOL 217,3,7,7,7,7,7,7,3: SYMBOL 218 
,192,224,224,224,224,224,224,192 

22 SYMBOL 219,3, 127, J27, 127, 127 ,0,0,0:SY 
RBOL 220, 192 , 254 ,254 , 234 , 254 , 0 ,0 ,0: SYHBO 
L 221,0,0,0,0,0,127,127,127 

23 SYMBOL 222,0,0,0,0,0,234,234,234 

24 SYMBOL 223,7,31,63,127,127,254,252,24 
Bt SYMBOL 224,224,248 , 228, 130,2,1,1,1 

25 SYMBOL 225,240,224,224,64,64,32,24,7: 
SYMBOL 226,3,3,7,14,30,61,248,224 

26 SYMBOL 227 ,0,0,0,0,0, 1 ,3,7: SYMBOL 228 
,0,0,24,124,232,254,254,254 

27 SYMBOL 229,15,31 ,31, 63, 63, 31, 7, 0:SYM6 
OL 230,252,252,248,240,224,192,0,0 

50 INK 1,0: INK 2,2: INK 3,20: INK 4,6: INK 
5,24: INK 6,22:INK 7,26: INK 8, 1 1: INK 9,17 
: INK 10,8: INK 11,13 

51 INK 12, 18: INK 13,25:INK 14,16; INK 15, 
3: NODE 0 

55 FOR t*l TO 10:hi (tl*0:hillt)='AH5TRAD 



57 sc=0:li*3:clq*5:60SUB 600 

58 H1ND0N I5,1,20,1,22:PAPER I5,1:CLS >5 
iHINDOH *2,1, 10,23,25: PAPER I2,1:PEN 12, 
4:CLS 12 

59 HINDOU I3,11,20,23,25:PAPER «3 , 1 ■ PEN 
I3,8:CLS 13 

60 80SUB 100 

64 PRINT CHRI(22)*CHR*(1) 

65 LOCATE 1,1:PEN 12:F0R t=l TO li 

66 PRINT CHR* (217) iCHR*(218) ; : NEXT 

67 PEN 9: LOCATE 1,2:F0R t*l TO lisPRINT 
CHR* (219) i CHR1 (220) pNElT:PEN 4:L0CATE 1 
,2:F0R t>l TO lisPRINT CHR*(221)jCHR*(22 
2) ; :NEXT 

68 CLS I2:PRINT 02, 'SCORE 'sc 

69 CLS *3; PRINT 13,'HIBH 'HIUlsPEN 83, 
12:PRINT 13, 'LEVEL 'LE 

70 T$=CHR* (21 7) +CHR» 1218) : M**CHR* <2 19) *C 
HR*(220h8*=CHRI(221)*CHR*(222) 



71 q=500:«t«q:p*=294:py=399:PRINT CHRJI23 
) * CHR» ( 1 ) : f x=p* : f y=py-64t f •=! : TAB:FOR 
t=l TO 10:qa*"lNKEY*iNE» 

72 col*0:qa*l:SOSUB 205:8070 74 

73 CALL 6BD19:TA6:PL0T q,»,12:H0VE px.py 
SPRINT tip PLOT q,H,9: MOVE px,py-16:PR!N 
T alpPLOT q,w , 4: MOVE px ,py-l 6s PRINT b*{ 
:CALL 68019: TABOFFsRET URN 

74 bx*10:by*2 

75 TABOFFiLOCATE bx,by:PEN 15:PRINT CHR1 
(214)|CHRI1215):L0CA7E bx,by*l:PRINT CHR 
11213) jCHRI(212) 

76 TA6:60SUB 73 
80 sco*I:fla*2 

82 IF INKEY(67)=0 THEN 90 

83 IF INKEY(7I)*0 THEN 91 

84 IF 1NK£Y(50)*0 THEN 92 

85 IF INKEY (621*0 THEN 93 

86 fla*l:60T0 200 

90 E0SU8 73iex*-32:ey»32ix*-lty*-2i6DT0 
95 

91 80SUB 73: «x=-32; ■y*-32: x=-l s y=2i GOTO 
95 

92 SDSUB 73:ix=32:ey=32:x«l:y-2:BOTO 95 

93 60SUB 73:»x*32:ey*-32:x=l:y*2 

95 k=bx*x i l=by»yjz=px+»x :c*py+iy 

96 IF 1<2 OR 1>20 OR TEST(z,c-32)=l OR p 
x*f x AND py-fy THEN 500 

97 IF TEST (1*16, c-32l*2 THEN 150 

98 px*::py*c:bx*kiby*I 

99 fla=0:60T0 200 

100 REH set up screen 

102 PAPER 1: BORDER 2:CLS 

103 PRINT CHR*I22)*CHR*I1) 

104 RESTORE 

105 READ a: IF a*255 THEN PRINT CHRX22K 
CHR*( 0): RETURN 

106 READ b: LOCATE a,b 

107 PEN 2:PRINT CHRX214) |CHRI(215):L0CA 
TE a , b* 1 : PRINT CHR* (213) j CHR* (212) 

108 LOCATE a,b*l:PEN 4:PRINT CHRI(215)p 
PEN 4:PRINT CHR* (214) 

109 PEN 4: LOCATE a,b*2:PRINT CHRt(213)p 
PEN 4:PRINT CHRII212) 

110 SOTO 105 

120 DATA 10,2,9,4,11,4,8,6,10,6,12,6,7,8 
,9,8,11,8,13,8,6,10,8,10,12,10,14,10 

121 DATA 5,12,7,12,13,12,15,12,4,14,6,14 
,10,14,14,14,16,14 

122 DATA 3,16,5,16,7,16,9,16,11,16,13,16 
,15,16,17,16,2,18,4,18,6,18,8,18,12,18,1 
4,18,16,18,18,18,255 
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131 TAGOFF: LOCATE 100,100s PRINT CHR 4 (22 
)*CHR*(I)|:TA6: RETURN 

150 col*coHl:sc=sc*le:CLS I2 sPRINT 12, ■ 
SCORE 'SC 

151 IF col *38 THEN GOSUB 160:6010 155: El 
SE 99 

155 BORDER 2 

156 leMe+l:sc*sc*10eie*5eclq 

157 TA60FF: PRINT CHR* (22) +CHR* (0) SPRINT 
CHR* (23) +CHR* (0> : GOTO SB 

160 RESTORE 165 

161 READ tnsIF tn«255 THEN RETURNsELSE R 
EAO lgsSOUND 3,10,15,15,2,2 

162 GOTO 161 

165 OATA 358,-2,268,-1,358,-1,268,-2,213 
,-1,268,-1,213,-2,179,-6,358,-1,268,-4.2 ' 
55 

200 GOSUB 205: IF <y<146 THEN f)i-294:f y=>3 
99sB0T0 221 

201 IF lt>4 THEN 230sELSE qfINT (RND ( 1) • 
IO)+lsIF 4»«! AND qs>5 THEN 220 

202 qsMNT(RND(!)tlO)MiIF qs>5 THEN 207 
sELSE GOTO 220 

205 CALL IBD19: TABjPLOT q,s>,cusNOVE fx,f 
ysPRINT CHRf (223) ; CHR* (224) j s HOVE fx,fy- 
UsPRINT CHR* (225)jCHR*(226); 

206 PLOT q,»,cd:HOVE fx.fysPRINT CHR* ( 22 
7)jCHR*(228)f sKOVE 4* ,#y-16sPRlNT CHRK2 
29) | CHR* (230) | s TAGOFF: CALL IBD19: RETURN 

207 fx=fx-32:fy=fy-32)IF TEST(fx,fy-32l* 

1 THEN fx*fx*32sfy«fy*32:G0T0 220 

208 IF fx=px AND fy=py THEN 500 

209 IF CUM THEN cu-2s cd»l s GOTO 210sELSE 
cu*lscd*2 

210 GOSUB 205:fe*0:IF fleM THEN BOsELSE 
GOTO 75 

220 fx»fx*32:fy*fy-32slF TEST(fx,fy-32>* 

1 THEN fx*fx-32:ly*fyt32)60T0 207 

221 IF fx*px AND f y-py THEN 500 



■2 IF cuM THEN cu=2s cd=ls GOTO 223sELSE 
u‘lscd-2 

3 GOSUB 205: IF FleM THEN 80sELSE SOTO 
5 

0 IF px<fx THEN 207: ELSE 60T0 220 
0 GOSUB 73s80SUB 205:60SUB SlOsFOR tM 

0 1000: NEXT:LI=LI-i:IF LI=0 THEN 520 

1 TABOFFiPRINT CHR*(22)tCHR*(0)i60T0 5 

0 RESTORE 515 

1 READ tn: IF tn=255 THEN RETURNsELSE R 
D 1 9 : SOUND 3,tn, Ig.lS.l, 2 

2 GOTO 511 

5 DATA 379,-2,402,-1,379,-3,253,-4,268 
1,253,-2,338,-2,319,-2,338,-2,379,-5,2 
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THEN 550 

539 X**CHR*IX‘84)i60TO 545 

540 X*-CHR*(X+64) 

545 D**D*rX»sLOCATE 5,20:PRINT DJsGOTO 5 
29 

550 HI(T)«SC:HI*(T)=DI 

560 CLS: PEN 4:L0CATE l.lsPRINT"!! HALL 

OF FANE ‘ ! * : PEN lOlLOCATE 1 ,2: PRINT*—" 



520 CLS: IF SC<=HI(10) THEN 560:ELSE TMO T 



561 FOR TM TO IOsPEN T*1 : LOCATE l,T+3+( 
t-1 ) sPRIHT T: LOCATE 4,T*3+(t-l ) iPRINT HI 
'LOCATE 15,T*3*(t-l I SPRINT HKTliNEX 



521 IF T=0 THEN TM:60T0 522sELSE IF »c< 
*hi(t) THEN TMMsGOTO 522s ELSE TM-1:60 
TO 521 

522 PEN 2s PRINT* ! (CONGRATULATIONS I I’sPEN 
4s PRINT: PRINTsPRIMT* YOU HAVE THE NO ■; 

T|* TOP'iPEN 3sPRINT“ SCORE!" 

525 PRINT! PRINTS PRINT: PEN lOsPRINT* USE 
2-1 XPij* : PRINT* TO ENTER NANE" 

526 PEN 5s LOCATE l,13sPRlNT"ABCDEFGHIJ)X 
HN0P8RST" s LOCATE 1 , 15: PRINT'UVNXYZ “jCHR 
*(2421 } :PEN 4:PRINT"E*:F0R RMO TO T STE 
P -1:H1(RI*H1 (R-1I:HI*(R)*HI*(R-1):NEXT 

527 IM:VM4:PEN 3:PRINT CHR*(22)*CHRII0 
) i PRINT CHR* (23 ) *CHR» ( 0) s LOCATE 5,20:PRI 
NT"««»=»—":D*." 

529 LOCATE X, YsPRINT CHR* 1240) 

530 A*MNKEY*s A*«UPPER* (A*) : IF A*=*Z* TH 
EN 535 

531 IF A»*"X" THEN 536 

532 IF A*»"P" THEN 537 

533 60T0 529 

534 LOCATE I, YsPRINT" "i RETURN 

535 IF XM AND YM6 THEN GOSUB 534:X«20: 
YM4sG0T0 529s ELSE IF IM AND YM4 THEN 
GOSUB 534:X*9sYM6:60T0 529:ELSE GOSUB 5 
34:X*X-1:60T0 529 

536 IF YM4 AND 1*20 THEN 60SUB 534:XM: 
YM6sG0T0 529 1 ELSE IF 1*9 AND YM6 THEN 
GOSUB 534:XM:YM4:G0T0 529:EISE GOSUB 5 
34: X=X+1 : GOTO 529 

537 IF LEN(D*)>9 AND (Y=l* DR 109) THEN 
529: ELSE IF YM4 THEN 540 

538 IF X*7 THEN X*«" "sSOTO 545:ELSE IF 
1*8 THEN GOSUB 534sGOTO 527sELSE IF 1=9 



562 LOCATE 2,24:PEN 7s PRINT'PRESS ASPACE 



" THEN 56 




563 A**UPPER» (INKEYS) : IF Al 
3 

564 GOTO 57 

600 CLS: GOSUB lOOsLOCATE l.lsPRINT CHR*( 
lllsPEN 2s LOCATE 7 , 1 : PRINT'BRUSH UP'sPEN 
12: LOCATE 7,2:PRINT"==*==*=." 

601 PEN 7 s LOCATE 1 ,3: PRINT"BY. J. PUSH* 

602 LOCATE 12,3:PRINT DHRX164) ; * JAN 198 
6" 

603 PEN 4s LOCATE 3,24:PRINT"1) INSTRUCTON 
S'sPEN lOi LOCATE 7 ,25:PRINT"2) PLAY* 

604 A*=INKEY*:A=VAL(A*):!F A<1 OR A>2 TH 
EN 604 

605 IF AM THEN 620 

606 CLSs LOCATE l,10sPEN 7:PRINT"ENTER ST 
ARTIN6 LEVEL" s LOCATE 7,12sPEN I2:PRINT"( 
1—4)" 

607 A*«INKEY*s A=VAL ( A*> : IF A<1 OR A>4 TH 
EN 607 

608 LE*A:RETURN 
610 SOTO 610 

620 NODE Is PEN llsCLSsLOCATE 17,1:PRINT" 
BRUSH UP* s LOCATE 17,2sPRlNT"=*»***=*"sL0 
CATE 3,5 

621 PRINT’Guide your paintbrush eround t 
he blacks, colouring thee red.ehile evoid 
ing the bouncing beech bell." 

622 LOCATE 3,8:PRINT'Contect mth the be 
11 or felling offf the blocks loses yo 
u e life, of ehich youheve 3." 

624 LOCATE 3,12:PRINT"C0NTR0lSi-" 

625 LOCATE 7,14:PRINT"Q R": LOCATE 7,1 
5: PRINT" o /"sLOCATE 7,16sPRINT" O’ 

626 LOCATE 7,17sPRINT" / o'sLOCATE 7,18 
:PRINT"2 C" 

627 LOCATE 3,20:PRINT"PRESS ASPACEu" 

628 A»=lNKEY*slF A*<>" ■ THEN 628 

629 NODE Os GOTO 600 



11 




Is TEST 




This game simulates the 
party game which Involves 
remembering a number of 
objects. In this computeris- 
ed version the computer 
starts off with one object 
and as you remember each 
screen of objects works its 
way up to forty one items. 

You have three lives 
which are lost everytime 
Ruess an object wrong- 
if you run out of time. 
11 you guess all 41 ob- 
jects, without cheating, 



Hints & Tips 



will register a wrong guess 



of your 3 lives will 



10 DIH 0BJI(50O),0BI(43>,(.»(45) 

20 FOR s*l TO 41 i READ ob*<>) tNEXT 
30 SOWS 2530 
40 B0SUB 2520 
50 6A*li2*IiLI*3 
60 Z*li8*30 
70 00SUB 400 

B0 IF Z<42 THEN 0*S0:60SUB 470 ELSE 60T0 
3040 

90 CLS #1 j PRINT II,' MiHIEHO 
RISE N 0 N « ♦ * fiPEN 11,2 
100 FOR X*1 TO SOO»Z«NEXT 
110 PRINT CHR*(7)|iCLS #1 i PRINT *!,■ 

* * » t TINE'S UP * t t #■ 

120 FOR 1*1 TO SiFOR »•! TO 20iNEXTiPRIN 
T CHR0 (7 ); i NEXT 

130 PLOT 17,383iF0R 1=1 TO 320: DRANR 606 
,0,0iN0VER -606,-llNEXT: DRAI6R 1,1,1 



140 CLS IliPRINT II,' Nut one of the o 

bj’ictt you «a»i- 

150 II***:ANI***:T1*21 

160 PRINT 11, Ti 

170 II*INKEYI 

100 IF II*CHRI(13) THEN SOUND 4,120,10,1 
Si SOTO 250 

190 IF U-CHRII127) AND LENIANII >=1 THEN 
AN»=LEFT* I ANt ,LEN I AND -1 ) i SOUND 1 , 2000, 
5,15 iPR 1NT #1 , * "j : PRINT ll»*|iB0T0 22 

200 IF II*CHRII127> THEN SOTO 220 
210 IF HO" THEN SOUND 1 , 100,9, IStPRIN 
T »1 , *;UPPER*U*> j *1*1 : AN*=AN*+I* 

220 TI«TI-0.04:IF TI<*0 THEN CLS IliPRIN 

T II,* You ire out of tiie 

* i FOR t=l TO IOOiPRINT CHR*(7)|iNEXTiF0R 
t'.l TO 2000: NEXT: 60T0 290 



230 LOCATE I2,2,1:PRINT 12,* Tilt « *1N 
T (TI> j iLOCATE I2,2,2:PRINT 12,* Livu * 
■|LI 

240 B0T0 170 

■ 250 AN«*UPPER«(AN»):F0R I»1 TO Z:IF ANS* 
OBI II I THEN N*NH 

260 IF ANI-0B1IX) THEN 0>Ii0N I 60SUB 47 
| 0,530,590,640,690,730,780,030,880,930,90 
0,1030,1110,1180,1230,1270,1310,1360,140 
I 0,1450,1490,1540,1590,1630,1680,1720,176 
0,1810,1860,1910,1960,2010,2050,2100,215 
0,2190, 2240, 2290; 2340 , 2380 , 2430 , 2470: GOT 
0 320 

270 IF AN1*0BI(X) THEN 60T0 320 
280 B*41iNEIT 

290 PRINT II,' (tit n R 0 

NS f f ( t*:LI*LI-lsF0R KM TO 20iF 
OR Y*1 TO 5: SOUND 5, 100*Y,3 , ISiNEXT: IKXT 
300 IF Ll*0 THEN SOTO 360 
310 BOTO 140 

320 IF ANI*08I(0) THEN 0B* 10) ZXZXZ" 

330 IF N*Z AND Z«41 THEN Z *42: FOR 1*1 TO 
1200: NEXT: 80T0 80 

340 IF N*Z AND Z<42 THEN PLOT 17,3B3:CLS 
IliPRINT II,* # OX NON TRY TO 

REHEHBER*] Z*1 y ‘OBJECTS f|F0R X*I TO 12 
OOiNEXTiFOR X*1 TO 320: DRAHR 606,0,0:NOV 
ER -606,-l:NEXT ■ DRAHR l,l,I:N*0:Z*ZtliN« 
0: RESTORE: FOR X»1 TO 41: READ OBKXIiNEXT 
: SOTO 80 
350 SOTO 140 

360 CLS IliPRINT II,* YOU LOST AL 
L YOUR CHANCES ! I HARD LUCX ! ! ! 

You guessed* ; Z-l: * objec 

tf* 

370 FOR X*10 TO 1000 STEP 15:S0UND 7,X,4 
,15: NEXT 

380 FOR T=1 TO 3000:NEXT:60T0 30 
390 X*1 

400 NODE 2t PAPER OiPEN liCLS 

410 HOVER 10, 60s FOR X*1 TO 6:H0VER 1,1 iD 

RANR 620-X(2,0,liDRANR 0,330-X(2iDRANR - 

620(X(2,0:DRANR 0,-330+X»2 

420 NEXT . 

430 HOVE 30,215 

440 HINDOH ll,2,60,23,24:NIND0N 12,63,78 
,23,24 

450 PAPER ll.liPEN ll,2iCLS IliPAPER 12, 
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IsPEN l2,2iCLS 12: PAPER #2,1 
460 RETURN 
♦70 REN 

♦SO PLOT 60,375: FOR 3*1 TO ♦: DRAUR 20-1# 
2,0: DRAHR 0,-31#I#2:0RANR -20#3«2,0:DRAH 
R 0,31-3»2:H0VER 1,-liMEXT 
♦90 NOVER -5,-10:F0R I«1 TO 4: DRAHR -30, 
OiHOVER 30,1: NEXT 

300 HOVER -30,0:FOR 3=1 TO ♦: DRAHR 0,-15 
, 1 : HOVER 1 , 15: NEXT 

510 HOVER 6,0iF0R 3-1 TO 4: DRAHR 0,-10iH 

OVER 1 , 10:NEXT 

520 LOCATE 5, SPRINT ■KEV 

330 IF 0=1 THEN RETURN 

540 IF Z<2 THEN RETURN 

550 PLOT I30,200:DRAHR 30,0:DRAHR 0,10:0 

RANR -3, -3: DRAHR -3,3: DRAHR -3,-3:DRANR 

-3,3:DRAHR -3,-3:DRAHR -3,3: DRAHR -3,-3: 

DRAHR -3,3:DRAHR -3,-3:DRAHR -3,3 

560 DRAHR 0,-10:DRAHR -1,-VjDRAHR -5,-3: 

DRAHR -2,-10:DRAHR 10,0:DRAHR 0,-3,l:DRA 

HR 5,0: DRAHR -5,-2:DRANR 0,-10:DRAHR 15, 

5 

570 HOVER 5,-10:F0R 3*1 TO 8: DRAHR -5,60 
: HOVER 7,-60: NEXT : HOVER -33,36:DRAHR 5,- 
2: DRAHR -5,-2 

580 LOCATE 16,16:PRINT 'KING' 

590 IF 0=2 THEN RETURN 

600 IF Z<3 THEN RETURN 

610 PLOT 40,11S:DRAHR 25,0:DRAHR 0,-15:D 

RAHR -25,0: DRAHR 0,15:HOVER 1,0:F0R 3=1 

TO 4:F0R V*1 TO 3: DRAHR O,-15:H0VER 1,15 

:NE3T:H0VER ♦,0:NE3T 

620 HOVER -♦,-7:DRAHR 10,10:DRAHR 0,-20: 

DRAHR -10.10.-H0VER -25,0:DRAHR -10, 10:DR 

AHR 0,-20: DRAHR 10,10 

630 LOCATE 5,20:PR1NT 'SHEET' 

640 IF 0*3 THEN RETURN 

650 IF Z<4 THEN RETURN 

660 PLOT 400 , 200 : DRAHR 30,0:DRANR 0,10:0 

RAHR 10,-10: DRAHR -10,-10: DRAHR 0,10 

670 HOVER -♦0,10:FOR 3=1 TO 3: DRAHR 10,- 

10: DRAHR -10,-10:H0VER 3,20:NE3T 

680 LOCATE 50,14:PRINT "ARROH" 

690 IF 0=1 THEN RETURN 
700 IF Z<3 THEN RETURN 




710 PLOT 300,360iDRAHR 20,0:DRAHR 0,-20: 
DRAHR -20,0: DRAHR 0,20:DRAHR 20,10:DRAHfl 
20,0: DRAHR -20,-10: HOVER 0,-20:DRAHR .20 
,10: DRAHR 0,20 
720 LOCATE 39,5:PRINT 'SOI' 

730 IF 0=3 THEN RETURN 

790 IF Z<6 THEN RETURN 

750 PLOT 360, 140:F0R 3=1 TO 10.-DRAHR 30, 

OiHOVER -30,1 iNE3T 
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760 HOVER 10, 10: FOR 3=1 TO 10: DRAHR 0,-5 

OiHOVER 1,50:NE3T 

770 LOCATE 71,19:PRINT 'CROSS' 

780 IF 0=6 THEN RETURN 

790 IF Z<7 THEN RETURN 

800 PLOT 300,255:DRAHR 3,0: DRAHR 0,-60:D 

RAHR -3,0:DRAHR 0,60:HOVER I5,0:DRAHR 3, 

0: DRAHR 0,-60:DRAHR -3,0: DRAHR 0,60 

810 HOVER -12,-3:F0R 3=1 TO 10: DRAHR 12, 

OiHOVER -12,-6:NEXT 

820 LOCATE 37,M:PRINT 'LADDER' 

830 IF 0=7 THEN RETURN 

890 IF Z<8 THEN RETURN 

850 PLOT 100,360:DRAHR 90,0:DRAHR 0,-6:D 

RAHR -40,0:DRAHR 0,6 



: DRAHR 9,0 

1090 DRAHR 0,9:DRAHR 4,0:DRAHR 0,-30:DRA 
HR-10,0: DRAHR 0,20:H0VER 0,-20:DRAHR -28 
,0i DRAHR 0,20: HOVER 0,-20:DRAHR -10,0 
1100 LOCATE 30,5:PRINT 'CASTLE' 

1110 IF 0=12 THEN RETURN 

1120 IF Z<13 THEN RETURN 

1130 PLOT 390,339:DRAHR 0,90:HOVER 1,-90 

: DRAHR 0,90:H0VER 1,-90:DRAHR 0,90 

1190 HOVER 0,-2: DRAHR 30,0:DRAHR 0,-15iD 

RAHR -30,0: DRAHR 0,15 

1150 FOR 3=1 TO 10: DRAHR 0,-15:H0VER 1,1 

5:NE3T:H0VER 10,0 

1160 FOR 3=1 TO 5: DRAHR 0,-15:H0VER 2,15 
1NE3T 



860 FOR 3=1 TO 14: DRAHR 0,10:HOVER 3,-10 
:NE3T 

870 LOCATE 19,9:PRINT'C0HB' 

880 IF 0=8 THEN RETURN 

890 IF Z<9 THEN RETURN 

900 PLOT 25,320:FOR 3*1 TO 6: DRAHR 30,0: 

HOVER -30,-l:NE3T 

910 HOVER 30,0:DRAHR 0, lOiDRAHR 60,0:DRA 

HR -60,-15:DRAHR 0,5 

920 LOCATE 6,7:PRINT 'KNIFE' 

930 IF 0=9 THEN RETURN 

990 IF Z<10 THEN RETURN 

930 PLOT 280, 308: DRAHR 36,0:DRAHR -18,-1 

8: DRAHR -18,18 

960 HOVER 0,-12: DRAHR 36,0:DRAHR -18,lBi 
DRAHR -18,-18 

970 LOCATE 36,8:PRINT 'STAR' 

980 IF 0=10 THEN RETURN 

990 IF 2<11 THEN RETURN 

1000 PLOT 95,100:FOR 3=1 TO 6: DRAHR 30,0 

: NOVER -30,1:NE3T 



-1 % 

1170 LOCATE 67,5:PRINT 'FLAB* 

1180 IF 0=13 THEN RETURN 

1190 IF Z<19 THEN RETURN 

1200 PLOT 989, 198: DRAHR I9,0:DRAHR 0,-3: 

DRAHR -19,0: DRAHR 0,3:H0VER 2,0: DRAHR 0, 

-10: DRAHR -5,-10:DRAHR 0,-30:F0R 3*1 TO 

23:DRANR 20, OiHOVER -20,1:NE3T:H0VER 20, 

0: DRAHR 0,5: DRAHR -5,10:DRAHR 0,10 

1210 FOR 3=1 TO 5: DRAHR 0,-2:H0VER -2,2: 

NE3T 

1220 LOCATE 60,17:PRINT'B0TTLE' 

1230 IF 0=19 THEN RETURN 
1290 IF Z< 15 THEN RETURN 
1250 PLOT 360,365:DRAHR 15,-I0:DRAHR 30, 



1010 FOR 3=1 TO 6: DRAHR 25,0:NOVER -25,1 
:NE3T 

1020 FOR 3=1 TO 6: DRAHR 19,0: HOVER -19,1 
iNElTiFOR 3=1 TO 6: DRAHR 13, OiHOVER -13, 
1:NE3T 

1030 FOR 3=1 TO 6: DRAHR 7, OiHOVER -7,1:N 
E3T 




DRAHR 9,0:DRAHR 0,4: DRAHR 4,0: DRAHR 0,-4 



20: DRAHR -30,-30:DRAHR -15,20 
1260 LOCATE 46,5:PRINT 'TICK' 

1270 IF 0=15 THEN RETURN 
1280 IF Z<16 THEN RETURN 
1290 PLOT 130, 109: DRAHR 0,-3:0RAHR 30,0: 
DRAHR 0,-8:DRAHR 15,0:DRAHR 0,3: DRAHR -I 
2,0: DRAHR 0,5: DRAHR 12,0:DRAHR 0,3: DRAHR 
-12,0: DRAHR 0,5: DRAHR 12,0:DRANR 0,3:DR 
AHR -15,0: DRAHR 0,-8:DRAHR -30,0 
1300 LOCATE 21,20:PRINT 'FORK' 

1310 IF 0=16 THEN RETURN 
1320 IF 2< 17 THEN RETURN 
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i 



1330 PLOT 594,367iF0R X*l TO 4:DRAHR 0,- 
20: MOVER 1 ,20: NEXT: HOVER 8,-20:DRAHR -20 
, 0:DRAHR 0,-35:DRAMR 5,-5:DRANR IO.OiDRA 
MR 5,5: DRANR 0,35 

1340 DRAMR -12,0:DRAHR 2,-10:DRAHR 2,10: 
MOVER -12,-25:F0R X=1 TO 3: DRAMR 19,0:M0 
VER -19,-2iNEXT 
1350 LOCATE 74,7:PRINT'BAT' 

1360 IF 0=17 THEN RETURN 

1370 IF Z< 18 THEN RETURN 

1380 PLOT 540, 282: FOR 1=1 TO 4:DRAMR 20, 

0:M0VER -20,-l:NEIT:M0VER 20,6:DRAMR 0,- 

10: DRAMR 45,0:DRAMR 3,10:DRAMR -48,0 

1390 LOCATE 73,9:PRINT 'PAN- 

MOO IF 0=18 THEN RETURN 

1410 IF 2(19 THEN RETURN 

1420 PLOT 1B0,360:DRANR 0,-50:DRAHR -30, 

0: DRAMR 0,50:DRAMR 30,0:N0VER -30,0:DRAM 

R 6,6: HOVER -4,-4:F0R 1=1 TO 3: DRAMR 30, 

0: MOVER -28,2:NEXT 

1430 MOVER 28, -2: FOR X=1 TO 3: DRAMR 0,-5 

0: MOVER -2,4B:NEXT 

1440 LOCATE 20,7:PRINT'BOOX" 

1450 IF 0=19 THEN RETURN 

1460 IF Z<20 THEN RETURN 

1470 PLOT 30, 280: DRAMR 4,0iDRAMR 0,-20: 

DRAMR -4,0:DRAMR 0,20:H0VER 4,-12:DRAMR 

45,0: DRAMR 5,2: DRAHR -5,2i DRAHR -45,0 

1480 LOCATE 6,I0:PRINT'NAIL' 

1490 IF 0=20 THEN RETURN 
1500 IF 2<21 THEN RETURN 
1510 PLOT 32,145:F0R 1*1 TO 15: DRAMR 15, 
OiMOVER -15,1: NEXT: MOVER 3,0:F0R X=1 TO 
10:DRAMR 9, OiMOVER -9,1:NEXT 
1520 MOVER -10,0iDRAMR 28,0: DRAMR 0,25:D 
RAMR -28,0: DRAMR 0,-25:M0VER 2,0:F0R X*1 
TO 14: DRAMR 0,25:M0VER 2,-25:NEXT 
1530 LOCATE 4,17:PRINT'LAMP' 

1540 IF 0=21 THEN RETURN 

1550 IF 2(22 THEN RETURN 

1560 PLOT 73, 162: DRAHR 20, OiMOVER -12,0: 

DRAMR 0,20:DRAMR 3,0:DRANR 0,-20 

1570 MOVER 6, 20: DRAMR -15,0:DRAMR 0,20:M 

OVER 0,-20: FOR 1=1 TO 14: DRAMR 15,0:MOVE 

R -15,I:NEXT:H0VER 15,0:DRAMR 0,6 

1580 LOCATE 9,16:PRINT 'BLASS' 

1590 IF 0=22 THEN RETURN 



1600 IF 2(23 THEN RETURN 
1610 PLOT 576, 254: FOR 1*1 TO 6: DRAMR 30, 
OiMOVER -30,-6 :NEXTiM0VER O,36:F0R T=1 T 
0 6: DRAMR 0,-30:HOVER 6,30:NEXT 
1620 LOCATE 73,12:PRINT'BRID’ 

1630 IF 0-23 THEN RETURN 

1640 IF 2(24 THEN RETURN 

1650 PLOT 110, 275: DRAMR 50,0:DRAHR 0,-30 

: DRAMR -50,0:DRAMR 0,30:DRAMR 25,-20:DRA 

MR 25, 20: HOVER 0,-30 

1660 DRAMR -1B,15:H0VER 18,-15:H0VER -50 

,0: DRAMR 18,15 

1670 LOCATE 14,11:PRINT'ENVEL0PE' 

1680 IF 0=24 THEN RETURN 

1690 IF 2(25 THEN RETURN 

1700 PLOT 200,280: DRAMR 0,-50:H0VER -20, 

20:F0R 1*1 TO 20: DRAMR 21-X,-8;DRAMR 21- 

X ,8: HOVER -41+X»2,3:NEXT 

1710 LOCATE 24,12:PRINT'TREE’ 

1720 IF 0*25 THEN RETURN 

1730 IF 2(26 THEN RETURN 

1740 PLOT 240, 260: FOR X*1 TO 3: DRAMR 0,4 

2: HOVER 1,-42: NEXT: HOVER 0,40:0RANR 15,0 

: DRAMR 0,-20: DRAMR -15, OiMOVER 13,20:DRA 

HR 0,-20 

1750 LOCATE 31,10:PRINT 'AXE' 

1760 IF 0=26 THEN RETURN 

1770 IF 2(27 THEN RETURN 

1780 PLOT 230, 224: DRAMR 15,15:DRAMR 15,- 

15: DRAMR -15,-15;DRAMR -15,15:DRAMR 30,0 

: MOVER -15,15:DRAMR 0,-30 

1790 DRAMR 0,-50:M0VER O.lOiFOR X=1 TO 4 

: DRAMR -3,3: DRAMR 0,-6:DRAHR 6,6: DRAMR 0 

, -6: DRAMR -3,3:H0VER O.lOiNEXT 

1800 LOCATE 30,16:PRINT 'MITE* 

1810 IF 8=27 THEN RETURN 

1820 IF 2(28 THEN RETURN 

1830 PLOT 200,200: DRAWR 0,-20:DRAMR 10,0 

1 DRAMR 0,-5: DRAMR -10,0:DRANR 0,-10:DRAM 

R-5,0:DRANR 0,10:DRAMR -20,0:DRAMR 25,25 

1840 MOVER -6,-11: DRAMR 0,-IOiDRAMR -10, 

0: DRAMR 10,10 

1850 LOCATE 23,16:PR1NT 'FOUR' 

I860 IF 0=28 THEN RETURN 

1870 IF 2(29 THEN RETURN 

1880 PLOT 235, 120: DRAMR 0,-15:DRAMR -5,- 

5: DRAMR -10,0:DRANR -5,5: DRAHR 0.15.-DRAH 

R 20, OiMOVER 1,-2 iDRAMR 8,0: DRAHR 0,-10: 

DRAMR -8,0 

1890 HOVER 0,3:DRAHR 5,0: DRAMR 0,5: DRAMR 
-5,0 

1900 LOCATE 28,20:PRINT 'CUP' 



1910 IF Q*29 THEN RETURN 

1920 IF Z<30 THEN RETURN 

1930 PLOT 420, 376: DRAHR 24,0:DRAMR 0,-3: 

DRAMR -2 4,0: DRAMR 0,3:H0VER 2,0:F0R X=1 

TO 8: DRAMR 0,-3:N0VER 3,3;NEXT 

1940 HOVER -5, -3: DRAHR 0,-7:DRAMR 5,-5;D 

RAMR 0,-20: DRAHR -28,0:DRAMR 0,20:DRAMR 

5,5: DRAMR 0,7:M0VER 2,-12:F0R X=1 TO 15: 

DRAMR 15, OiMOVER -15,-!:NEXT 

1950 LOCATE 53,5:PRIN1 'JAR' 

1960 IF 0=30 THEN RETURN 

1970 IF 2(31 THEN RETURN 

1980 PLOT 32,230:DRANR 50,0:DRAMR 0,-4:D 

RAMR -50,0:DRAMR 0,4:FOR X=1 TO 4: DRAHR 

8,0: MOVER -B,-1:NEXT 

1990 MOVER 42,4iF0R X=1 TO 4:DRAMR 8,0:M 

OVER -8,-liNEXT 

2000 LOCATE 6,12:PRINT 'HAND' 

2010 IF 0*31 THEN RETURN 

2020 IF 2(32 THEN RETURN 

2030 PLOT 283,146:F0R x=l TO 30: DRAHR 60 

-(«»2I ,0: DRAMR -30+x ,30-x : DRAMR -30*x,-3 

0**: MOVER 1,1: NEXT 

2040 LOCATE 36,17:PRINT 'TRIANBLE' 

2050 IF 0=32 THEN RETURN 

2060 IF 2(33 THEN RETURN 

2070 PLOT 465, 380: FOR X°1 TO 5:DRANR 40, 

OiMOVER -40,-l:NEXT:F0R Y*1 TO 25: DRAHR 

5, OiMOVER 30,0:DRAMR 5, OiMOVER -40,-liNE 

XTiFOR X*1 TO 5: DRAMR 40, OiMOVER -40,-1: 

NEXT 

2080 FOR X=1 TO 5 1 DRAMR 10, OiMOVER 20,0: 
DRAMR 10, O’: MOVER -40,-l:NEXT:F0R X=1 TO 
18: DRAMR 40, OiMOVER -40,-l:NEXT 
2090 LOCATE 60,6:PRINT 'DOOR' 



<>0 r MEMORY 
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2110 IF Z<34 THEN RETURN 

2120 PLOT 2B0,11B:DRAHR 40,0: HOVER -40,- 

lsDRANR 40, Os HOVER -33,7iF0R X*l TO 9:DR 

ANR 0,-l4:H0VER 4,14:NEXT:H0VER -44,-16: 

DRANR 0,20: DRAHR -5,0: DRAWR 0,-20: DRAUR 

5,0 

2130 HOVER 17,7: DRAHR 0,-20:H0VER 1,0:DR 
ANR 0,20: DRANR O,-20:H0VER -10,0:F0R X=1 
TO 4: DRANR 20,0:HQVER -20,1:NEXT 
2140 LOCATE 35,20:PR1NT "AERIAL" 

2150 IF 0=34 THEN RETURN 

2160 IF Z<35 THEN RETURN 

2170 PLOT 347, 320: DRANR 7,-7:DRANR 7,7:D 

RANR 20,-10:DRANR -4,-10:DRANR -8, 4: ORAN 

R 0, -30: DRAMR -30,0:DRANR 0,30:DRANR -B, 

-4:DRANR -4,10:DRANR 20,10 

21B0 LOCATE 43,9:PRINT "SHIRT* 

2190 IF 0*35 THEN RETURN 
2200- IF Z<36 THEN RETURN 
2210 PLOT 340, 155: DRANR 40,0:DRANR 0,-50 
: DRANR -40,0:DRANR 0,50:H0VER -5,0: DRANR 
50,0: DRANR 0,5: DRANR -10,5:DRANR -30,0: 
DRANR -10, -5: DRANR 0,-5:H0VER 0,-50:DRAN 
R 50,0: 

2220 DRANR 0,-5:DRANR -50,0:DRANR 0,5:H0 
VER 7,44:F0R Y*1 TO 4:F0R 1*1 TO 5: DRANR 
0,-40:H0VER 1 ,40: NEXT:HOVER 5,0:NEXT:H0 
VER -25, 17: DRANR 0,5: DRANR 5,0: DRANR 0,- 
5: HOVER 2,0:DRANR 0,7: DRANR -9,0:DRANR 0 
,-7 

2230 LOCATE 45,20:PRINT "DUSTBIN" 

2240 IF 0*36 THEN RETURN 

2250 IF Z<37 THEN RETURN 

2260 PLOT 405, 2B0: DRANR 20,0:DRANR 0,25: 

DRANR -10, 10: DRANR -10,-10:DRANR 0,-25:H 

OVER 0,3:DRANR -I5,0:DRANR 15,20:H0VER 2 

0,0: DRANR 15,-20:DRANR -15,0 

2270 HOVER -10,25:DRANR 6,-6:DRANR 0,-4: 

DRANR -12,0: DRANR 0,4: DRANR 6,6 

2280 LOCATE 50,9:PR!NT "ROCKET" 

2290 IF 0=37 THEN RETURN 

2300 IF Z<38 THEN RETURN 

2310 FOR 1*1 TO 180 STEP 5:0E6:PL0T 482+ 

lOtCOS 1 1 1 , 270*10»SIN ( X ) : NEXT: FOR X*1 TO 

180 STEP 5:DEB:PL0T 462+10»C0S(X) ,270+10 

•SIN (X) :NEXT 

2320 HOVER 40,0:DRANR -20,-30:DRANR -20, 
30: HOVER 1 ,0: DRAHR 2O,-30:DRAHR 20,30 
2330 LOCATE 58,11:PRINT "HEART- 
2340 IF 0=38 THEN RETURN 
2350 IF Z<39 THEN RETURN 
2360 PLOT 450,105:DRANR 0,-3:DRANR 50,0: 
DRANR 0,3: DRANR -50,0:DRAHR 0,10:DRANR 3 
0,0: DRANR -6,6:DRANR 3,0: DRANR 23,-lOiDR 
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2370 LOCATE 57,20:PRINT "SLIPPER" 

2380 IF 0=39 THEN RETURN 

2390 IF Z<40 THEN RETURN 

2400 PLOT 380,250: DRANR I0,0:DRANR 0,-6: 

DRANR -2,0: DRANR 0,-20:DRAHR 3,0: DRANR 0 

, -6: DRANR -3,-3sDRANR -6,0: DRANR -3,3:DR 

ANR 0,6:DRANR 3,0: DRANR 0,20:DRANR -2,0: 

DRANR 0,6 

2410 PLOT 350,235:FDR 1*1 TO 5: DRANR 32, 

0: HOVER -32,-lsNEXT 

2420 LOCATE 42,12:PRINT "HAHHER" 

2430 IF 0*40 THEN RETURN 
2440 IF Z<41 THEN RETURN 
2450 PLOT 555, 270: DRANR -15,0:F0R X*1 TO 
6: DRANR O,-5O:H0VER 3,50:NEIT:H0VER -3, 
-50: DRANR -15,0:DRANR 7,-15:DRANR 0,-5:H 



9+x*2,-l:NEXT:H0VER 30,15:FOR x*l TO 15: 
DRANR 40-x*2,0:HOVER -39+x»2,-l:NEXT 
2580 HOVER -20,7:FOR x=l TO 10:DRANR 0,- 
lOO+x+2: HOVER -1 , 99-x*2: NEXT: MOVER 12,10 
: FOR x=l TO 9: DRANR 0,-100+x *2;H0VER 1,9 
9-x*2: NEXT:HOVER 42,16:F0R x*l TO I5:DRA 
NR 0,-1 20*x *2 : HO VER -l,U9-x*2:NEXT 
2590 HOVER 30,15:F0R X*1 TO 15: DRANR 90- 
X«2,0:H0VER -89+X«2,-l:NEXT:H0VER -20,10 
:FOR X*1 TO 15: DRANR 0,-50+X*2:H0VER 1,4 
9-X*2: NEXT: HOVER -15,-40:F0R X*1 TO 15:D 
RANR 0,-50+X»2:H0VER 1,49-X»2:NEXT:H0VER 
-8,-40:F0R X*1 TO 15: DRANR 90-X*2,0:HOV 
ER -89+X»2,l 

2400 NEXT: HOVER -17,43:F0R X*1 TO lOiDRA 
NR 70-X«2,0:HOVER -69+ X*2 , - 1 : NE X T : HO VER 




OVER 0,5: DRANR 7,15 

2460 LOCATE 68,14:PRINT "PEN- 

2470 IF 0=41 THEN RETURN 

2480 IF Z<42 THEN RETURN 

2490 REH •»« SUESSED ALL THE OBJECTS **• 

2500 CLS II :END 

2510 SYMBOL AFTER 34 

2520 SYMBOL 35,255,255,255,255,255,255,2 




2540 DATA KEY, KINS, SHEET, ARRON, BOX, CROSS 
, LADDER, COHB, KNIFE, STAR, STAIRS, CASTLE, FL 
AB, BOTTLE, TICK, FORK, BAT, PAN, BOOK, NAIL, LA 
HP, GLASS, 6R1D, ENVELOPE, TREE, AXE, KITE, FOU 
R, CUP, OAR, HAND, TRIANGLE, DOOR, AERIAL, SHIR 
T, DUSTBIN, ROCKET, HEART, SLIPPER, HAHHER, PE 

2550 REH • « TITLE SCREEN « » 

2560 NODE 1: INK 1,13;INK 2,26:PAPER 3:CL 
S 

2570 PLOT 10,380,2:F0R x=i TO 15: DRANR 0 
, -120+x*2:H0VER l,119-x»2:NEXT:H0VER -7, 
18:F0R x*l TO 15: DRANR 40-x*2,0:H0VER -3 



5B,9;F0R X=1 TO 9: DRANR -70+X*2,0: HOVER 
69-X»2,l:NEXT 

2610 HOVER 35, 45: FOR x*l TO 15: DRANR 0,- 
120+x*2i HOVER 1 , 1 19-x*2:NEXT:H0VER -7,18 
iFOR x=l TO 15:DRANR 40-x#2,0: HOVER -39+ 
x»2, -1 : NEXT : HOVER 30,15:F0R x*l TO ISiDR 
ANR 40-x*2,0:H0VER -39*x*2,-l:NEXT 
2620 HOVER -2O,7:F0R x*l TO 10: DRANR 0,- 
100+x»2: HOVER -1 ,99-x«2: NEXTsHOVER 12,10 
: FOR x*l TO 9: DRANR 0,-100+x*2:HOVER 1,9 
9-x *2 : NE XT : MOVER 42,16:F0R x*l TO 15:DRA 
NR 0,-120+x*2: HOVER -I,ll9-x*2:NEXT 
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104-X<2:NEXT:H0VER -10,-95:F0R *=1 TO 15 
s DRAHR 80-X*2,0i HOVER -79*X*2, 1 sMEXT:«OV 
ER 47,95 

2440 FOR 1=1 TO 15s DRAHR 0,-I05+X*2: MOVE 
R -1,104-X*2 jNEXT 

2450 HOVER 30,20: FOR 1=1 TO 15: DRAHR SO- 
US, OsHOVER -79«-X*2 , -1 : NEXT! HOVER -20,10 
:FOR >=1 TO 15: DRAHR 0,-40*X»2:HOVER 1,5 
9-X*2» NEXT: HOVER -15,-50:F0R 1=1 TO 15:D 
RAHR 0, -50*1 *2: HOVER 1,49-X*2:NEXT:H0VER 
70,75:F0R 1*1 TO 10:DRAHR 0,-50*X»2:H0V 
ER -1,49-1*2 

2440 NETT: HOVER IO.IOiFOR 1=1 TO 9:DRAHR 
0,-50+X*2: HOVER 1 ,49-X*2:MEXT:H0VER -84 
,-45: FOR 1=1 TO 10: DRAHR 75-1*2,0: HOVER 
-74*1*2, IsNElTsHOVER -10,-10:FOR 1=1 TO 
9: DRAHR 75-1*2, 0:H0VER -74*1*2, -IsNEXT 
2470 HOVER 70,3:F0R 1=1 TO 10: DRAHR 0,-5 
0*1*2: HOVER -1,49-X*2:NEXT:H0VER 10,10:F 
k OR 1=1 TO 9: DRAHR 0,-50*1*2:HOVER 1,49-1 
I *2: NEXT 

V 2480 HOVER 10,80:F0R 1=1 TO 15: DRAHR 0,- 
4O*X*2:H0VER 1 ,59-1*2: NEXT: HOVER -5,-45: 
FOR.JM TO 10: DRAHR 70-1*2, OsHOVER -49*1 
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9-1*2: NEXT : HOVER -15,-40:F0« 1*1 TO 15:D 
RAHR 0,-50*X*2:H0VER 1,49-X*2:NEIT:H0VER 
-8, -40: FOR 1=1 TO 15: DRAHR 90-1*2, 0:H0V 
ER -89*1*2,1 

2730 NEXT: HOVER -17,43:F0R 1=1 TO 10:DRA 
HR 70-1*2, OlHOVER -49*1*2, -IsNElTsHOVER 
58,9:F0R 1*1 TO 9: DRAHR -70*1*2,0: HOVER 
49-1*2, UNE1T 

2740 HOVER 45,50:F0R 1=1 TO 15: DRAHR 90- 
1*2, OlHOVER -89*1*2, -IsNEXT: HOVER -20,10 
: FOR 1*1 TO 15: DRAHR 0, -50*1*2: HOVER 1,4 
9-X*2:NEXT:H0VER -13,-40:F0R «=1 TO 10:D 
RAHR 90-1*2, OlHOVER -89*1*2, IsHEXTiHOVER 
-10,-10 

2750 FOR x*l TO 10: DRAHR 90-1*2, OsHOVER 
-89*1*2, -IsNElTsHOVER 80,3:F0R x»l TO 15 
i DRAHR 0 , -50+x *2 : HOVER -l,49-x*2:NEXT:H0 
VER 9, -37: FOR x=l TO 15:0RAHR -90*1*2,0: 
HOVER 89-1*2,1: NEXT 

2740 HOVER 30,100sF0R X*1 TO 15: DRAHR 50 
-1*2, OsHOVER -49*X*2,-1 : NEXT: HOVER 40,15 



!,*D»vid Hair 
2840 PEN •l.OsLOCATE »1,8,3:PRINT 01, 
:PEN OI,2:LOCATE #1,2,4:PR1NT »l,' 







Hill* 

2850 PEN 1: LOCATE 2,24:PRINT ■***»«* l=i 
nstructions S=start »**•**■ 

2840 I*=INKEY*:IF I*=" THEN BOTO 2840 
2870 IF UPPER* ( i*> =■ I ■ THEN 80SUB 2920:6 
OTO 2900 

2880 IF UPPER»lil)='S' THEN BOTO 2900 
2890 60T0 2840 

2900 CLS: INK 1,24:INK 2,20: INK 3,4 
2910 RETURN 

2920 NODE 1:PEN 2: PAPER 3: CLS 
2930 LOCATE 14,1:PRINT 'HENDRY TEST 1 
2940 PLOT 200, 380, 4: DRAHR 200,0 
2950 PEN 1:PRINT:PRINT 1 This ii a gait 
to tot ho* good you "sPRINT 'are at re 
•eebering. *:PR1NT " The coiputer will 
dra» an object and print it* naee undern 
eath. After a periodof tiee the coeputer 






* the" 



*2, IsNElTsHOVER 43,-7:F0R 1=1 TO 15: DRAH 
R 0,40-X*2: HOVER -l,-59+X»2:NEXT:H0VER 9 
,-21:F0R X=1 TO 9: DRAHR -70*1*2, OsHOVER 
49-1*2, -1:NE1T 

2490 HOVER 15,5:F0R X*1 TO 15:DRANR 0,-4 
0*X*2:H0VER -1,59-X*2:NE1T:H0VER 9,-45:F 
OR X=1 TO 15:DRAHR -80+1*2, OsHOVER 79-1* 
2, IsNEXT 

2700 PLOT 120, 250: FOR 1=1 TO 15:DRAHR 50 
-1*2, OlHOVER -49+1*2, -IsNElTsHOVER 40,15 
sFOR X»! TO 15: DRAHR 50-1*2, OsHOVER -49* 
1*2, -IsNElTsHOVER -18,10:FOR 1*1 TO lOsD 
RAHR 0,-120*X»2sH0VER -l,119-I*2sNEXT:H0 
VER 10,10 

2710 FOR 1=1 TO 10s DRAHR 0,-120*X*2sH0VE 
R 1,1 19-1*2: NEXT 

2720 HOVER 50,15:F0R 1=1 TO 15:DRAHR 90- 
1*2, OsHOVER -89*1*2 , - 1 : NEXT : HOVER -20,10 
:FOR 1=1 TO 15: DRAHR 0,-50*X*2:H0VER 1,4 



! FOR X=1 TO 15: DRAHR 50-1*2, OsHOVER -49* 
1*2, -IsNElTsHOVER -18,10:F0R X=1 TO 10:D 
RAHR 0,-120*I*2:HOVER -1 , 1 19-X*2:NEIT: HO 
VER 10,10 

2770 FOR I*i TO 10: DRAHR 0,-120*X*2:H0VE 
R 1,1I9-X»2:NEXT 
2780 FOR y=l TO 5:F0R x=l TO 15 
2790 IF 1=1 OR 1*3 OR 1=7 OR 1=9 OR 1*11 
OR 1*13 OR 1=15 THEN SOUND 1,0,1,15,0,0 
,x:SOTO 2810 

2800 SOUND 4,0,1,15,0,0,: 

2810 LOCATE 1,1 : PRINT ' 

■sLOCATE 1,25:PRI 
NT ■ 

'sNElTsNEXT 
2820 INK 2,24 

2830 HINDOH # 1 , 1 3, 26 , 19 , 22: PAPER 11,1:0. 
S • 1 : PEN 1 1,0: LOCATE ll,3,l:PRINT II, 'Hr 
it, ten by': PEN H,2sL0CATE ll,2,2:PRINT I 



2940 PRINT 'object and ask you to re-cal 
1 as to uhatthe object aas.If you get it 
right then another object nil! be displ 
ayed with the object Is) you previously 
naaed ,but if you guess arongly or run 
out of tiee you lose one of your 3 lives 

2970 PRINT ' The gaae ends uhen you hav 
e lost all of your lives.' 

2980 PEN 0:PRINT:PRINT • RATIN6S:-'sP 
EN lsPRINT ' Less than 8 objects - PATHE 
TIC'sPRINT " 8 to 14 objects - NOT B 

AD'iPRINT’ 17 to 24 objects - 800D':P 
RINT ' 25 to 32 objects - VERY GOOD 

2990 PRINT ' 33 to 40 objects - BRILL 

IANT'sPRINT ' all 41 objects - HEN 
SA needs you I' 

3000 PEN 2 sLOCATE 5,25:PRINT ■ PRESS 
ANY KEY TO BEGIN* 

3010 II*1NKEY$:IF U=" THEN GOTO 3010 
3020 RETURN 
3030 END 

3040 FOR 1=4 TO 18:L0CATE 11,X:PRINT ■ 
HELL DONE 'I! YOU'VE GUESSED ALL 
THE OBJECTS': NEXT 
3050 SPEED INK 10,10 
3040 INK 1,24,0: INK 0,0,24 
3070 FOR 1=15 TO 1 STEP-1 
3080 FOR T=1 TO 30-0. 1*1: SOUND 7,X*30*RN 
D*T ,1,15: FDR V=1 TO 10:NEIT:NEXT 
3090 SPEED INK 1,1 
3100 NE1T 

3110 INK 1,24: INK 0,1 
3120 FOR T=1 TO 5000: NEXT: RUN 
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1 REM ROBERT BURGESS 19 *♦♦♦* ^,'/ _ ;lj- >♦ 

06 v ♦ ♦ 4, R^Ji-A 

2 REM DEDICATED TO MY IMMORTA T ~ * £~~l' ^ 

L HEROES, PLUS MUM, DAD, PC, PL, SS,D ^ 
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LB-m-S-hOM 



Ever wanted fame and fortune in one of Britain's 

Do you think that anything that you have 
programmed is up to our standards? 

We are looking for programs to publish for the 
following machines: Commodore 64, VIC, C16, Plus/4, 
Spectrum, Oric/Atmos, Atari 400, 600XL, 800, 800XL, 
65XE, BBC, Electron. Amstrad and TI-99/4A (BASIC or 
Extended), 

All programs should be recorded on tape as many 
times as possible and at the most reliable baud rate 
(where applicable). No printed listing is necessary as we 
can do our own except in the case of the TI-99/4A where 
a listing produced on a computer printer is absolutely 
necessary. No handwritten or typed listings are 
acceptable. 

Any tape must be clearly marked with the program 
name your name, the machine it Is intended for, and 
your address. 

Documentation should run to our normal style with 
a description and introduction to playing the game and 
how the game works. 

Documentation should be typed on one side of blank 
A4 paper with double spacing between lines and a wide 

We pay well for all listings published. 

If you want to send us your program then fill in the 
form. And send us the tape, documentation, coupon, 
and an SAE if you want it returned, to the following 




Aerial dog-fights - Tank battles - an elusive 
commander - The scene is set 
for a thrilling contest of skill 

and strategy One or two player 



_ £7.95 Cassette 

CBM 64 £10.95 Disc 




I Set in the realm ot the mystic Orient, Karate Combat pairs you, in thrillingly realistic 
battle, against 16of the mightiestand mostskiltul exponents of "open-hand" fighting. 
Each opponent has different fighting characteristics and you must cunningly use 
different techniques to tackle each adversary. Your aim is to move up the rankings 
and eventually do battle against the 16th opponent, the ultimate challenge — The 
Master! In addition to the competition mode, the program includes a 2-player mode 
and a practice mode, complete with a punch-bag, to enable you to master 
your repertoire of punches, kicks, blocks, spins, sweeps and the spectacular flying kicks 
PRICE: £8.95 (cassette), £11.95 (BBC disc) 

COMPETITION COMPETITION COMPETITION COMPETITION 



SUPERIOR 



Dept. AB4, Regent House | 
Skinner Lane Leeds 7. 

, SOrTUIRRC Teh 0532459453. 



UIE PAY TOP ROYALTIES FOR HIGH QUALITY SOFTWARE 
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m AVOID THE MONSTER RUSH FOR 
THE NEW 






£15.00 for 12 issues U.K. __ 

£18.00 for 12 issues Overseas Surface Mail 
£61.20 for 12 issues Overseas Airmail 

Send this form with your remittance to: 

Times House, 179 The Martotces. 
Heme! Hempstead, Herts. HP 1 IBB. 



COMPETITION 

RESULTS 
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CLASSIFIED DEPT. (CG) A.S.P. Ltd., 1 Golden 
Square, London W1. 

CLASSIFIED RATES — 40p private per word. Semi 
display £9 per single column centimetre plus VAT. 
i Series rates on application. Please note that all 
i classified advertisements under £20 must be pre- 
paid. All cheques or postal orders to be made 
payable lo A.S.P. Ltd., (P.H.) 

Telephone Duncan Neilson on 01-437-0699 

Q S 
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SHARP MZ 700 games ten pack . 
all original arcade softwareT’riced 


M8 ' i 




Grove. Clillon, Nottingham NGt 1 | 


ODYSSEY 7 




EKuIOH 1 




Science Fiction Specialists 




DOUBLE DECKER GAMES 

Two games on a double 




Manchester University Precincts 
Oslotd Road. ManetoslerM13 9RN 




Send this advertisement 




Unl^HanSMS^L 




lor a double decker game. 

STOCKSOFT 




Tel; 0532 426325 

MAGAZINE AND POSTER CENTRE 




15 Woodbrooke Road, 
Birmingham B30 1UE 




T“o6l".KH7044 



SPECTRUMS, 
COMMODORE, 
DRAGON AND BBC 
REPAIRS 



THIS CORNER OF 
THE MARKET COULD 
BE YOURS. PHONE 
NOW ON 
01-437-0699 


















CHARITY COMPILATION TAPE 

ALL PROCEEDS 60 TO THE 
PRINCE’S TRUST 



LIGHTNING DISTRIBUTION LTD 
841 HARROW ROAD 
LONDON NW10 



PITFALL I 



ACTIVISION 



PITFALL II 

SPACE PILOT 2 

PSYTRON 

FALL GUY 

DEMONS OF TOPAZ 

SHEEP IN SPACE 

KONG STRIKES BACK 

BLACK THUNDER 

DEATH STAR INTERCEPTOR 

TALLADEGA 



ACTIVISION 

ANIROG 

BEYOND 

ELITE 

FIREBIRD 

LLAMASOFT 

OCEAN 

QUICKSILVA 

SYSTEM 3 

U.S. GOLD 



PSYTRON 
FALL GUY 
AD ASTRA 

SAM STOAT SAFEBREAKER 

SPLAT 

MUGSY 

KONG STRIKES BACK 



BEYOND 

ELITE 

GARGOYLE 

GREMLIN GRAPHICS 

INCENTIVE 

MELBOURNE HOUSE 

OCEAN 



CHEQUERED FLAG 




READERS 

C-L-U-B 



Big changes are about to 
happen in the Computer 
Gamer Readers’ Club. Read 
on to find out more . . . 



t for: 



must be completed In bloe 
capitals. Personal only - 
no trade. We take n 
responsibility for " 
sequences of an; 
contact " 3 



of any si 
ids. Inch 



Nearly 

"”*er C 

; ever readers' 



ago, Com- you oi 



Bnsr, srs 



wildest dreams. 

People applied from all 
over the world, and an age 
range from 6 to over 60 . 
— received the olub 



playing prowess. 

So what’s new? Well, due 
to vastly Improved produc- 
tion schedules on Gamer, 
as well as bringing you 



clubs, so if you have a local 
computer club that you 
'■ ‘ o promote, fill in the 



n and it will be it 



along the lines of a PO 
system, except that it win 
be membership numbers. 
No addresses will be in- 
cluded in the ads, only a 
number. If you want to res- 
pond to an ad, then you 



foil 



our puzzles. As well as free 
•delivery of this, members 
also had the right to par- 
ticipate in our unique 
ratings system that means 



elude the newsletter in the 
main magazine. This will 

as well as keeping 

The format will also 
change. From now on the 
club pages will be used for 
FREE contacts, in three 



want to sell something ooi 
puter related or you wa 
to buy something then tfc 



Section three, general 
n tacts. This is a general 
for contacting other 



Club Contacts 

1 °Go?den r squar e F 
London W1B 3AB 



people, if you 

puter pen pal, or want 
start a club, or can of 
help with a game, then 
self in this s 



be for elude yourself 



forward the letter on to the 
appropriate person. If you 
are not a member of **>» 
club already, then you 



The general rules for always send’ your applloa- 
ese sections are simple, tlon in with your contact 
1 applic-* 4 
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AN EDITOR, ASSEMBLER, MONITOR AND 
ANALYSER THAT REPRESENTS A NEW APPROACH 
TO MACHINE CODE DEVELOPMENT. 







